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*xeée MODIFICATION HISTORY *«««« 


Original release: 31-OCT-83 CEDITED 11-JUL-83) 


Bert Kleinschmidt 


Version BO 09-OCT-83 Bert Kleinschmidt 


Version 


Version 


Fixed typographical errors. 
Moved tests from this program to CVDHA (Part 1): 
Old CVDHB (version A) tests 2 through 8 are 
now New CVDHA (version B) tests 20 through 26. 
Moved test from CVDHC (Part 3) into this program: 
Old CVDHC (version A) tests 4 through 6 are 
now New CVDHB (version B) tests 13 through 15. 


co 16-DEC-83 Bert Kleinschmidt 
Fixed typographical errors discovered to date. 
Added 2 tests to allow this program to be used for a 
complete checkout of cables and distribution panels. 
New test 24 - Tests continuity of TX/RX lines. 
New test 25 - Detects TX line interactions. 


DO 17-Jul-84 Bert Kleinschmidt 

Fixed typographical errors discovered to date. 

Modified control of processor priority and LTC throughout 
the program to guarantees a less than 2 second 

responce to a Break request while running under APT. 
Fixed bug in IAUTO Active test which caused an X0N 
character to arrive late on processors with cache. 


Version DO 28-Sep-84 Peter ONeil 


Modified clean up section to turn off clock if clock 
had been turned on. 


29-Mar-85 Howard Marshall 
Did formal release of version CVDHBDO. 
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1.0 GENERAL PROGRAM CONSIDERATIONS 
1.1 PROGRAM ABSTRACT 


CVDHB is part two of the DHV11-M functional verification test. This 
part of the test verifies that the major communication functions of 

the board are functioning correctly. This program does not perform 

extensive data transmission and reception tests. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 

SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 

TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 

USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE 

DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. 


THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN THE OPERATING 
INSTRUCTIONS-COMMANDS OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
The following hardware is required to run the DHV FVT: 


o LSI-11 processor with at least 32 Kbytes of RAM. 
o DHV11 boards installed on the Q-bus. 


© Appropriate program load device supporting XXDP+ 
media or a down-line loading system. 


1.3 RELATED DOCUMENTS AND STANDARDS 
o DHV11-M Hardware Manual - This manual describes the 
functions and uses of the DHV11-M device. 


o XXDP+ User's Manual - Describes the running of 
diagnostics under the XXDP+ monitor. 


* SEQ 0004 


seal 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


SEQ 0005 


The LSI-11 processor, the Q-BUS, the system memor the 
console terminal, and the load media are assumed have 
been tested and found working before this program is run. 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME 
SERVICES. FOR DETAILED INFORMATION, REFER TO THE XXDP+ 
USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (CALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 


BY THE DIAGNOSTIC - SEE PERFOMANCE AND PROGRESS 
REPORTS SECTION OF THIS DOCUMENT) 


DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE FLAGS SECTION) 
ZFLAGS CLEAR ALL FLAGS (SEE FLAGS SECTION) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF "START". 

MORE INFORMATION CAN BE FOUND WITHIN THE SECTION LABELLED 
EXTENDED COMMAND SYNTAX 


| 
2.0 OPERATING INSTRUCTIONS 


Gl 
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2.2 SWITCHES 
THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY ge OPERATION. 


THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS :DDD0D EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS.SEE THE FLAGS SECTION 
OF THIS DOCUMENT. 
/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-S/PASS:1000/E0P : 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE oe OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. 

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. yOu MAY, 
FOR EXAMPLE, TYPE "/TES:1-5" INSTEAD OF “/TESTS:1-5". 


coe - A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 


wee em em me em em em em em em ee ee ee ee ee ee ee ee ee eee eee 


a 


SEQ 0006 


a 
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2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 


ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 


NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER« INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 


IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION &.?PORT) 


*SEE THE ERROR INFORMATION SECTION OF THIS DOCUMENT. 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS _ 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER:BOE 


SEQ 0007 


a 


11 
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2.4 EXTENDED COMMAND SYNTAX 


2.4.1 START COMMAND - 

Lbbbbbdihbhhhhhippe pe ppepepeceete rit i iti tier e erie 

STACRT )/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/EOP: <INCR> 

EER REE ERR REE RE EEE EEE REE 


2.4.1.1 Tests Switch (/TESTS:<TEST-LIST>) - 


<TEST-LIST> Is a sequence of decimal numbers (1:2 etc.) 
or ranges of decimal numbers (1-5:8-10 etc.), seperated by 
colons, that specify the tests to be executed.Tests will be 
executed in numerical order regardless of the order of 


. specification. The default is to execute all tests. On 


this and all switches, the angle brackets <> are punctuation 
used in the definition only, and are not to be typed by the 
mane pe See example at end of "Effect of Start Command” 
section. 


2.4.1.2 Pass Switch (/PASS:<PASS-CNT>) - =: 


<PASS-CNT> Is a decimal number indicating the desired 
number of passes. A pass is defined as the execution of the 
full diagnostic (all selected tests).The default is 
non-ending execution. In this case, exit from the program 
is accomplished either by typing a control/C or by occurance 
of an error with the halt on error flag being set. The exit 
is e return to command mode. See example at end of "Effect 
of Start Command” section. 


2.4.1.3 Flegs Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> is a sequence of elements of the form 
<FLAG>, <FLAG=1>, or <FLAG=0>, separated by colons, where 
<FLAG> has one of the following values: ° 


HOE Halt on error, causing command mode to 
be entered when an error is encountered. 

LOE Loop on error, poses the diagnostic to 
loop continuously within the smallest 
defined block of coding (segment, subtest, 
or test) containing the error. 

IER Inhibit error reporting. 

IBE Inhibit basic error reports. 

IXE Inhibit extended error reports. 

PRI Direct all aosgegee to a line printer. 

PNT Print number of test being executed. 

BOE Bell on error. 

UAM Run in unattended mode, bypassing manual 


SEQ 0008 
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intervention. 

ISR Inhibit statistical reports. 

IDU Inhibit dropping of units by diagnostic. 

LOT Loop on test. 
The flags named or equated to 1 are set, those equated to 0 
ere cleared. “A flag not specified is cleared. If the flags 
switch is not given all flags are cleared. See example at 
end of "Effect of Start Command” section. 


- 


2.4.1.4 End'Of Pass Switch (/EOP:<INCR>) - 


<INCR> Is a decimal number indicating how often (Cin 
terms of passes) it is desired that the end of pass message 
be printed. The default is at the end of every pass. See 
example at end of “Effect of Start Command” section. 


2.4.1.5 Effect Of Start Command - 


The effect of the start command is to initiate the 
hardware perameter dialogue, the software parameter 
dialogue, the initialization questions, and then the 
diagnostic commences testing. 


The hardware parameter dialogue commences with the 
question “# UNITS (D) ?” to which the agereter should reply 
with the number of units to be tested. ollowing this are 
the questions whereby the P-Tables themselves are built. 
Each P-Table is a core-resident table containing all the 
hardware information for one complete unit.Each question is 
followed by the response radix (D for decimal, B for binary, 

for octal, L for Yes/No) in parentheses and the default 
value after the parentheses. For the actual Hardware 
P-Table questions see the “Hardware Parameters” section. 


Following the hardware questions are the software 
questions to build the software tables, which define 
operating parameters of the diagnostic program. These 
Questions are described in the "Software Parameters” 
section. , 


EXAMPLE: 
STA/TESTS:1:3-4:/PASS:3/FLAGS: IER: HOE=1 


This command will cause three passes to be made, with 
each pass consisting of tests 1,3, and 4. There is no 
difference between saying <FLAG> and saying <FLAG=1>. The 
notation <FLAG=0> is meaningful only on a command other than 
start to clear a flag that was previously set. Note that on 
all commands only the first three letters are scanned. 


SEQ 0009 


me ee 


ee 
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2.4.2 Restart Command - 

TT TETtt tit tt titi ttt iT iti tit it titi TTT TTT TTL LLL. 

RESC TART )/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: 
<FLAG-LIST>/UNITS: <UNIT-LIST> 

TIT iit Tt tT TTT tT TTT TT TTI TTT TTL LLL LL LLL LLL LLL 


2.4.2.1 Tests, Pass, And Flags Switches - 


<TEST- i <PASS-CNT>, and <FLAG-LIST> are as in the 
start command 


2.4.2.2 Units Switch (/UNITS:<UNIT-LIST>) - <UNIT-LIST> IS 
A_ SEQUENCE OF DECIMAL NUMBERS (0,1 ETC.) OR RANGES OF 
DECIMAL NUMBERS (0-5, 8-10 ETC.) THAT SPECIFY THE UNITS TO 
BE TESTED. THE NUMBERS ARE SEPARATED BY COLONS. THE 
NUMBERS MAY RANGE FROM O THRU N-1 (N IS THE NUMBER OF UNITS 
SPECIFIED IN THE PREVIOUS START COMMAND). THE NUMBER 
INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS 
ENTERED DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 
SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP COMMAND. 
SEE__THE DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 
IMB ALL UNITS WHICH HAVE NOT BEEN DROPPED BY A _ DROP 


2.4.2.3 Effect Of Restart Command - 


The restart command differs from the start command in 
that the P-Tables from the previous start command (there 
must have been one) are used, instead of new ones being 
built. The software dialogue may optionally be reexecuted 
(operator will be asked). The command can be used after 
command mode has been reentered in any of the three normal 
ways: a) the requested number of passes have been made, b) 
an error was encountered with the halt on error flag set, or 
c) a control/C was entered by the operator. 


2.4.3 Continue Command - 

TTTTITI TITTLE teeth 
CON( TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 

TTT TIT TTTTTIT TTL TTT LLL LLL 


— —  -— 


SEQ 0010 


Li 
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2.4.3.1 Fleg Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is same as in the start command, but 

unspecified flags retain their current value. 
| 
{ 


2.4.3.2 Effect Of Continue Command - 


Continue must follow a start or restart, and command 
mode must have been entered due to a halt on error or a 
control/C. The effect of the command is to go to the 
beginning of the test that was being executed when the halt 
or control/C took place. Software dialogue may optionally 
be reexecuted. Hardware parameters may not be changed. 


2.4.4 Proceed Command - 

TT TTTITI TITTLE LLL LLL LLL 
PROC CEED)/FLAGS: <FLAG-LIST> 

TTT TTTT TIT TILT LLL LETT LLL LLL LLL LLL 


2.4.4.1 Flags Switch (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> Is as in the start command, but unspecified 
flags retain their current value. 


2.4.4.2 Effect Of Proceed Command - 


Proceed must follow a start, restart, or continue. 
Command mode must have been entered via a halt on error. 
The effect of the command is to begin execution at the 
location following the error call. Neither hardware nor 
software parameters may be altered. 


2.4.5 Add Command - 
TTTTIT TTT TTT TTL tte ttt! 
ADD/UNITS: <UNIT-LIST> 
PT TTTttitttiti ii titt tit titi titi tt ttttttitttttti itt ttt ittt ttt 


2.4.6 EFFECT OF ADD COMMAND - THE UNITS SPECIFIED ARE ADDED 
TO THE TEST SEQUENCE. EACH UNIT MUST HAVE A P-TABLE IN 
MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE. THIS COMMAND 
MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS SWITCH 
MUST BE SPECIFIED. THE ADD COMMAND IS MEANINGFUL ONLY FOR 
UNITS THAT WERE PREVIOUSLY DROPPED. 


ee ee 
= ne — ——  ——— 


SEQ 0011 


ee | 


ee ee 
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2.4.7 Drop Command - 
TREREEEEEEEEEREEEEEERES OEEEEEEEE EE EEEEEEEEEEEEEEEEEEEEE REED 
DRO(P)/UNITS: <UNIT-LIST> 
EEREEEEEEEEEREREREEE EERE EEE EERE EEE EEEE EEE EEEEEEEEEEEE EEE ED 


2.4.8 EFFECT OF DROP COMMAND - THE UNITS SPECIFIED WILL BE 
DROPPED FROM TESTING. THE UNITS WILL BE RESELECTED ONLY BY 
THE EXECUTION OF AN ADD OR START COMMAND. THE UNITS SWITCH 
MUST BE ENTERED. THIS COMMAND MUST BE FOLLOWED BY A RESTART 
OR A CONTINUE COMMAND. 


2.4.9 Print Command - 

Soe t eet titi tt tit ttt tt tt TTT TT TTT TTT TTT TTT TTT TT TTT TTT TTT 
PRICNT) 

ETI TTT iti titi itt ttt ttt tT TTT TTT ITT TT TT TTTTTTT TTT TTTTTTT Ty 


2.4.9.1 Effect Of Print Command - Error summary reporting 
is se implemented in this diagnostic, so this command has 
no effect. 


2.4.10 Display Command - 
CREE AER EERE EERE AREER EERE EERE ERE EEREEEREEEEREREEREE EERE REE 


DISCPLAY )/UNITS: <UNIT-LIST> 
CERES EERE EERE EERE EERE EERE EERE EERE RARER EEEEEEE EEE E EEE ERK 


2.4.10.1 Effect Of Display Command - 


The hardware P-Tables for all units are printed in the 
format in which they were entered. 


2.4.11 Flags Command - 
Pict ti titi ti iii itis it iii iiitiitiiittitiitttt ttt ttt tt tt tt tt 


FLACGS) 
SEEKER EERE EERE REE EEEEEEERE EERE EKEEEKEEEEEEEEE EE 


2.4.11.1 Effect Of Flags Command - 


The current settings of all flags are printed. 


SEQ 0012 


ee | 


— ee ee eee 


os 
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2.4.12 Zflags Command - 
EEEEREEEREEEREREEEEREEEEEEEE EERE ERE EEREEEEEEEEEEREEEEE REESE 
ZFLCAGS) 

CREE EEEEREEEEEEEEEREEEEEEEEE EEE EESEEEERE EERE EE EEREEEEEERES 


2.4.13 Zflags Command - 
All flags are cleared. 


2.4.14 Control Characters - 


C A control/C (C) entered during the execution of a 
diagnostic causes a return to command mode. 


Z A control/Z (Z) entered nwtae one of the two 
operator dialogues-- hardware Table dialogue or 
software P-Table dialogue causes the defaults to be 
taken for the remainder of that dialogue. 


O A control/0 (0) entered during the execution of a 
diagnostic causes all teletype output to be 
surpressed for the remainder of the diagnostic or 
until another control/O is typed, which restores 
normal teletype output. 


2.5 HARDWARE QUESTIONS 


USER'S MANUAL). WHEN YOU ANSWER THIS QUESTION WITH A “Y", THE RUNTIME 
SERVICES WILL ASK FOR THE ‘NUMBER OF UNITS (IN DECIMAL). YOU WILL THEN 
BE ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT: 


1. CSR ADDRESS - This question requests the CSR address of the 
specified DHV11. The default answer for this question is the 
lowest address in the PDP-11 4 abi address space in which 
e DHV11-M can be placed (160460 Octal). 


2. INTERRUPT VECTOR ADDRESS - This question requests the 
interrupt vector address of the specified DHV11. 


3. ACTIVE LINES BIT MAP - This question requests an octal bit 
map of the serial communication lines on the DHV11 which are 
boing selected for testing. If the bit in the bit map is set 
which corresponds to a particular line (i.e. bit 3 for line 








ee eee 
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3) that line will be tested by the FVT. With staggered 
loopback a pair of Phone with the specified transmit line and 
another receive line will be tested. Therefore, to guarantee 
that both the transmitter and receiver of a specified line 
are tested when aig the staggered loopback connector, both 
the intended line A its mate must be selected (ie. to test 
line 1, select both line 1 and line 3). In nonstaggered 
testing, a bit in the active lines bit map selects the 
transmitter and receiver for the same line. 


4. TYPE OF LOOPBACK (1=INTERNAL, 2=H3277, 3=H325) - _ This 
question requests the type of loopback to be used in testing 
the DHV11. The following types of loopback are supported: 


© INTERNAL - Only internal UART loopback is to be used in 
testing the DHV. 


o 3277 - Staggered Berg connector(s) are installed at_ the 
end of the 40 wire cables in place of the OHV11 
distribution panels. 


o H325 - Single line, 25 pin loopback connectors (type 
H325) are installed on the lines to be tested. These 
connectors can be installed on the distribution panel or 
on the end of the terminal or modem cable. The H325 
connectors must have the removable jumpers installed. 


5. BR Level - This questions » quests the interrupt BR level of 
the DHV11. 


2.6 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART OR 
CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?” IF YOU 
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING "Y”". The following 
Software P-Table questions are asked by the regres if the operator 
indicates that the Software Parameters are to be changed: 


1. REPORT UNIT NUMBER AS EACH UNIT IS TESTED - This question 
asks whether the program should report the number of the unit 
which it is testing as it begins to test each unit. The unit 
wooed will only be reported if more than one unit is being 

este 


2. NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE - This 
question asks for the number of date errors which should be 
reported individually by this program for each line for each 

| transmission test. Errors which are not reported 
individually are reported in summary error reports. 


i ee eee 
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2.7 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES IN A 
TABLE THAT DESCRIBES mo... DEVICES UNDER TEST. THE SIMPLEST WAY TO 
BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH UNIT 10 BE 
TESTED. IF YOU HAVE A_MULTIPLEXED DEVICE SUCH AS A MASS STORAGE 
CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL 
LINES, THIS BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING A 
FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL 
MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. THESE UNITS ARE 
DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE IS ONE HARDWARE 
PARAMETER THAT CAN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS 
Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR 
ONE XY11 WITH oe UNITS. 
UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # +93 ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


CSR ADDRESS of? ? 160000<CR> 
SUB-DEVICE # 4% ? 3<CR> 
Q-FACTOR (0) 0 <CR> 


UNIT 5 

CSR ADDRESS (0) "s 160000<CR> 
SUB-DEVICE # ek 4<CR> 
Q-FACTOR (0) 0 <CR> 


UNIT 6 
CSR ADDRESS Ay? ?. 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 


SEQ 0015 


De 


_CVDHBDO DHV11-M FUNC TST PART 2 MACRO YOS.02 Monday 01-Apr-85 07:53 Page 17 
PROGRAM DOCUMENT 


Q-FACTOR (0) 1 ? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN 7S 
NOT VERY EFFICIENT. 
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
bear i THE SAME TABLE USING THE MULTIPLE SPECIFICATION 

# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB-DEVICE # (0) ? 0,1<Ck> - 
Q-FACTOR (0) 0 ? 1,0<CR> 


T3 
Coe ADDRESS A 


0) ‘. 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # 4°? ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED OMiY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 

“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM ey FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY gt Re ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? 8<CR> 
UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE # (0) ? 0O-7<CR> 
Q-FACTOR (0) 0 ? O,1,0,,.,.,1,1<CR> 





SEQ 0016 


—A 


ee ee 
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i 





E2 
SEQ 0017 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.8 QUICK START-UP PROCEDURE (XXDP-+) 


T 


A. 
a. 


4 
3. 
6 


¥. 


O START-UP THIS PROGRAM: 
BOOT XXDP-+ 


GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK AND THE QUESTION IS ASKED) QUESTIONS 


TYPE "R_ NAME”, WHERE NAME IS THE NAME OF THE BIN OR 
BIC FILE FOR THIS PROGRAM 


TYPE "START" 

ANSWER THE "CHANGE HW” QUESTION WITH "Y" 
ANSWER ALL THE HARDWARE QUESTIONS 

ANSWER THE “CHANGE SW” QUESTION WITH "N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR 


FLAGS 


AND SOFTWARE PARAMETERS. FOR DEFAULT INFORMATION SEE THE 


SECTIONS WITHIN THIS DOCUMENT ON FLAGS,AND HARDWARE QUESTIONS. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 

ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SEE THE FLAGS SECTION 
OF THIS DOCUMENT). 


THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SEE THE FLAGS SECTION OF THIS 


Fe 
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THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR "IXR" FLAGS ARE SET (SEE THE 
FLAGS SECTION OF THIS DOCUMENT). 

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 ERROR MESSAGES 


This program is intended to provide a go/no-go indication of the 
functionality of DHV11-M boards. To execute the program in this mode 
the operator can run with the inhibit basic error reporting switch. 
In this mode the program prints error messages which contain the error 
message header described above, plus the name of the failing test. 
For a list of the test names in this program see the test summaries 
gj pe of this document. An example of such an error message is the 
ollowing: 


CVDHB DVC FTL ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 


This error indicates that a fatal error was encountered within the 
test which tests the read/write capability of the DHV11-M registers. 


If the operator requires more extensive error reporting he can run 
with all error reporting enabled by not using the inhibit reporting 
switches. The above error message would then become the following: 


CVDHB DVC FTL ERR 01603 ON UNIT 02 TST 015 SUB 000 PC: 015244 
DEVICE REGISTER WORD READ/WRITE TEST 
BAD BITC(S) IN DEVICE TBUFFAD1 REGISTER FOR LINE 7 (D3. 
EXPECTED DATA: 000000 (0). 
ACTUAL DATA: 000023 (0). 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE TOTAL 
NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. THE “EOP” 
SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END OF PASS MESSAGE -IS 
at ghd FOR FUTHER INFORMATION SEE THE SWITCHES SECTION OF THIS 


SEQ 0018 


ee - —-—  - — - e ea 


Ge 
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5.0 TEST SUMMARIES 

The following tests are included within CVDHB: 


SEQ 0019 


sign siinisiesi 


1. Device register address test - Verifies that the UUT 
registers will respond witht the proper Q-BUS handshaking 
when accessed. Verifies that the UUT is at the proper 


initiate a DMA TX on a line. 


3. DMA.ABORT test - Verifies that the DMA.ABORT bit on each line 
will stop a DMA transmission and return a TX.ACTION and that 
the DMA can then be restarted. 


4. 0Q.AUTO inactive test - Verifies that the UUT will not respond 
to incoming XON and XOFF characters when 0.AUTO is inactive. 


5. 0.AUTO active test - Verifies that the UUT respond correctly 
to incoming XON and XOFF characters when 0. AUTO is active. 


6. I.AUTO inactive test - Verifies that the UUT will not 
pecerete and TX XON or XOFF characters in response to the 
IFO conditions if the I.AUTO bit is inactive. 


7. I.AUTO active test - Verifies that the UUT will generate and 
TX XON and XOFF characters in response to the FIFO conditions 
if the I.AUTO bit is active. 


8. FIFO data test - Verifies that the FIFO will hold 256 
characters without corrupting data. 


9. FIFO 3/4 level inactive test - Verifies that the FIFO 3/4 
alarm does not become active until the FIFO becomes 3/4 full. 


10. FIFO 3/4 level active test - Verifies that the FIFO 3/4 alarm 
becomes active, and remains active, when the FIFO is more 
than 3/4 full. 


11. FIFO 3/4 level active/inactive test - Verifies that the FIFO 
3/4 alarm, once activated, remains active until the FIFO 
level is reduced below 1/2. 


12. FIFO 1/2 level test - Verifies that FIFO 1/2 level indicator 
becomes active and remains active as the FIFO level is 
reduced below the 1/2 full point. 


13. BREAK test - Verifies that setting the BREAK bit on -_ line 
causes that line to go to a spacing state and that clearing 
the BREAK bit removes the line from the spacing state. 

14. No OVERRUN.ERROR test - Verifies that the UUT will receive 
the maximum number of characters without causing an overrun 


| address 

2. DMA.START test - Verifies that each DMA.START bit will 
ie error. 

. 


ee 


ee ee ee 


He 
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o 15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


24. 


os 


26. 


OVERRUN.ERROR test - Verifies that if more than the maximum 
number of characters are sent to the UUT overrun errors 
occur. 


DTR test - Verifies that changing the UUT LNCTRL OTR bit 
affects the state of the DIR control line. 


RTS test - Verifies that changing the UUT LNCTRL RTS bit 
affects the state of the RTS control line. 


DSR test - Verifies that DSR status signal correctly reports 
the state of the looped back DTR control line. 


RI test - Verifies that RI status signal correctly reports 
the state of the looped back DTR control line. 


CTS test - Verifies that CTS status signal correctly reports 
the state of the looped back RTS control line. 


DCD test - Verifies that DCD status signal correctly reports 
the state of the looped back RTS control line. 


DTR interactions test - Verifies that changing the state of 
the DTR control signal on any line does not affect the state 
of any status signals that it is not looped back to. 


RTS interactions test - Verifies that changing the state of 
the RTS control cag on any line does not affect the state 
of any status signals that it is not looped back to. 


TX lines test - Verifies that each active line has wry 
to the correct receive line. This test is only run if H32 
or H3277 loopback is specified in the hardware questions 
dialogue. his test is intended to be used to verify cable 
and distribution panel data line connections. 


TX lines interactions test - Verifies that each active TX 
line does not influence any RX lines (except the one that it 
is looped back to) or any modem status signals. This test is 
only run if H325 or H3277 loopback is specified in the 
hardware questions dialogue. 


~~ a BMP codes test - This pseudo test reports the first 32 
BMP codes which were discovered in the FIFO during the 
execution of the other tests. This avoids the interruption 
of other tests by these codes, if they are not critical to 
the tests being performed. 


SEQ 0020 


a 


| CVDHBDO DHV11-M FUNC TST PART 2 MACRO YOS.02 Monday 01-Apr-85 07:53 Page 22 


| PROGRAM DOCUMENT 


1098 
1099 


é 
6.0 EXAMPLE ERROR FREE PASS 

7 following is an example of an error free pass dialogue: 
CVDHBDO. BIC 

ORS 

CVDHB-D-0 

DHV11-M a ‘ y PART 2 

UNIT IS DHV11-M 

RESTART ADDR: 147670 

DR>STA 

CHANGE HW (L) ? Y 


# UNITS (D) ?2 
UNIT 0 
CSR ADDRESS: (0) 160460 ? tZ 
UNIT 1 
CSR ADDRESS: (0) 160460 ? 160040 
M ?< 
TYPE OF LOOPBACK (1s INTERNAL , 2=H3277, 3=H325): (0) 271 
INTERRUPT BR LEVEL: (0) 4? <CR> 


CHANGE SW (L) ? Y 


REPORT UNIT NUMBER AS EACH UNIT IS TESTED: ( 
NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON 


TESTING UNIT : OCD) 
TESTING UNIT : 1(D) 


CVDHB EOP 1 
O CUMULATIVE ERRORS 


wee UNIT : OCD) 
DR> EXIT 


? <CR> 


L) Y 
A LINE: (0) 074 


-LIST SEQ,LOC,BIN,MEB 
-NLIST CND 


SEQ 0021 


ee ee ee 


Je 
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11 

1131 
1132 
1133 
1134 
ia 


000000 


000000 


002000 


002000 


002000 


000001 


002000 


ee ae 


SEQ 0022 


5 56 6 $6 9 9 6 9 ll ul i hh ll i i kh hh ll hh hh 


; VOHB . PHD 


; SSL LKSKLLLLLLKL ALLA K SLL SK SALSA LK SKK SKS KL S KK 


-SBTTL Program Header 


-MCALL SVC 
svc 


; INITIALIZE SUPERVISOR MACROS 


5 596 6 96 96 96 9 hh bu kk bb hl kk kk oh hh wh wh wh ww 
; IF STRUCTURED MACROS ARE TO BE USED, ADD ".MCALL STRUCT” AND “STRUCT” 


; TO INITIALIZE THE STRUCTURED MACROS. 


SVCINS= 1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
SVCTST= 1 ; LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= 1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= 1 ; LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= 1 ; LIST OTHER TAGS, SHIFTED RIGHT 


CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF , A WISH 


TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. 


; SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. 
; CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM 


CHANGE T 


YOU RAY 


5 6569 65 9 959 9 955 0 55 6 5 0 6 6 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 zh 0 


-ENABL ABS 
;.ENABL AMA 
. ° 2000 


BGNMOD 


3¢¢ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT,BGNSW,BGNSFT ,BGNDU, ERRTBL 


HEADER CVDHB,D,0,22,0,PRIO7 


L$NAME: : 

-ASCII /C/ 
«ASCII /V/ 
-ASCII /0/ 
-ASCII /H/ 
-ASCII /B/ 
-BYTE 0 
-BYTE 0O 
-BYTE 0O 


-ASCII /D/ 


~ 


L$REV:: 
L$DEPO:: 
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Program Header 


002100 


ed ee eee oe 


060 
000000 
000022 
035724 
036206 
002212 
002224 
036446 
000000 
000000 
000000 
000000 
002124 
000340 
000000 
000000 


004 
000 


000000 
000000 


000000 
004154 
017064 
000000 
000000 
000000 
020012 
000000 
004164 
104035 








Ke 


L$UNIT: : 
L$TIML:: 
L$HPCP: : 
L$SPCP:: 
L$HPTP: : 
L$SPTP:: 
L$LADP: : 
L$STA:: 


L$CO:: 


L$DTYP:: 
L$APT:: 

L$DTP:: 

L$PRIO:: 
LSENVI:: 
LSEXP1:: 
L$MREV:: 


LSEF:: 


L$SPC:: 
L$DEVP:: 
L$REPP: : 
LSEXP4:: 
L$EXPS:: 
L$AUT:: 
L$DUT:: 
L$LUN:: 
LeDESP:: 
L$LOAD: : 


- ASCII 
- WORD 
. WORD 
- WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
- WORD 
- WORD 
. WORD 
. WORD 


-BYTE 
-BYTE 


- WORD 
. WORD 


. WORD 
- WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
EMT 


SEQ 0023 


/0/ 


22 
L$HARD 
L$SOFT 
L$HW 
L$SW 
L$LAST 
0 

0 

0 

0 
L$DISPATCH 
PRIO7 
0 

0 
eegygsto 
0 
L$OVTYP 
L$RPT 

0 

0 

0 

L$DU 

0 
L$DESC 
E$LOAD 


eee ee 


| CVDHBDO DHV11-M FUNC TST PART 2 MACRO YOS.02 Monday 01-Apr-85 07:53 Page 23-2 


| Program Header 


S 
tw 
i 
° 
fw 


1162 


a ee ee ee 


004104 
017100 
017754 
017752 
017072 
000000 
000000 
000000 


LSETP:: 
L$ICP:: 
L$CCP:: 
L$ACP:: 
L$PRT:: 
L$TEST:: 
L$OLY:: 


L$HIME: : 
. WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


SEQ 0024 


L$ERRTBL 
L$INIT 
L$CLEAN 
L$AUTO 
L$PROT 

0 

0 

0 


eee eee eee 


—— ee eee | se 
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SEQ 0025 
DISPATCH TABLE 
1174 -SBTTL DISPATCH TABLE 
HE 
1177 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
‘it ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
1180 
1181 002122 DISPATCH 26 
002122 000032 -WORD 26 
002124 L$DISPATCH: : 
002124 020126 -WORD Tl 
002126 020416 -WORD T2 
002130 021004 -WORD 13 
002132 021424 -WORD 14 
002134 022164 -WORD TS 
002136 022724 -WORD T6 
002140 023320 . WORD 7 
002142 023742 -WORD 18 
002144 024232 -WORD 19 
002146 024534 -WORD 110 
002150 025226 -WORD Til 
25716 -WORD T12 
002154 026362 -WORD 113 
002156 027006 -WORD 114 
002160 027506 -WORD 715 
002162 030434 -WORD 116 
002164 031134 -WORD 117 
002166 031634 -WORD 118 
002170 032250 -WORD 119 
002172 032664 -WORD 120 
002174 033300 -WORD T2l 
002176 033714 -WORD T22 
002200 034310 -WORD T23 
002202 4704 -WORD 124 
035222 -WORD T25 
002206 035642 -WORD 126 


1182 


—_——— a SOON — a ne a eee 
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SEQ 00 
| DISPATCH TABLE | wee) 
1190 | 
: is 3 sBSLLSSLALKASCUKCALKGKKLSAAAGSAKKACASLREAAL KKK UGKALAGRK SAA GKMKSSAKASG SSAA MARKAAS ERS 
1193 VDHB . DHT | 
1195 ; SESLLLCEKLULKCSSGLSSASGAAGSSKMLAVSMAGSGMLSKALLMSMSEAKSSSSMKSKA SAAS AK SARK SKSASR ANS BNR 
1196 | 
1197 | 
1198 | 
1199 -SBTTL DEFAULT HARDWARE P-TABLE 
1301 
1202 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
1203 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THES TABLE 
1204 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
ite: ; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
1207 : 
1208 002210 BGNHW DFPTBL 
002210 000004 -WORD 110000-L$HW/2 
002212 L$HW:: 
1209 002212 DOFPTBL:: 
1210 002212 160460 -WORD 160460 ;Default CSR Address 
1211 002214 000300 -WORD 300 ;Default Vector Address 
1212 002216 000377 -WORD MAPLNS ;Default Active lines bit map 
1213 002220 002 -BYTE 2 ;Default Loopback mode 
1218 002221 004 .BYTE 4 ;Default BR Level 


5 
1216 062222 ENDHW 
002222 L10000: 


| 
| 
l 


| 
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DEFAULT HARDWARE P-TABLE steals 
1218 
- 1219 ES tS Sb tl ttatbatalalata tae tatalalltalatalala tattle ttt tattle tattle ttt tite Eee eee ee eee eee eee Cet tS 
1220 ; 
ies3 ; VOHB . SWT 
iss ; SLSSCLLLLLASLGMKSLSS GGL SSGSSGGSSGGLGSG SAK SSSSSKAKCLSGSSSSASL GLKA GSA SSKAKK SASK ASS SKS SS 
1225 
1226 
1227 -SBTTL SOFTWARE P-TABLE 
1228 
1229 pee 
1230 ; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
1231 ; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
1232 ; SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
1233 ; AT RUN TIME. 
1234 Be 
1235 
1236 002222 BGNSW SFPTBL 
002222 000002 -WORD L10001-L$SW/2 
002224 L$SW:: 
1237 
1238 002224 000020 OPTION: : -WORD 20 sbit map of program control flags 
pH 002226 000000 NDERPT: : -WORD O ;Default number of individual data errors to rpt. 
1241 002230 ENDSW 


002230 L10001: 


002224 SFPTBL: : 


— a ee 
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SEQ 0028 =! 
SOFTWARE P-TABLE 
| 1243 
1244 5 596 96 hg 9 hh uh bs a bs 0 su gu gk uo og gu uk gu uk gu sak sk sa uk suk sg kg uk uk ok 6 9 ub 9h 9b 9h 9S 9b sh gS 
1245 ; 
1246 ; VDHB . EQU ! 
is05 5 596 gh sh 96 6 sh ib 5 ib ik ak sak ak uk sak ak gk gus gag ga ga gk gg gh og kk uk a uh uk ak uk kak ak uk ak 6 ak ak sah sak ak ah suk sak gs oo oo oo os oh ok ub ak uk ak ub ss ib ob 9b 9k ok 9b 9h 9h oh Bh oh oh | 
1250 
1251 .SBTTL GLOBAL EQUATES SECTION 
1252 
1262 
1263 
1264 
1265 
1266 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
1267 ; ARE USED IN MORE THAN ONE TEST. 
1268 ‘-- 
1269 
1270 000010 NUMLNS==10 ;NUMBER OF LINES ON DHV11 IS 8. 
1271 000377 MAPLNS==377 ;BIT MAP OF LINES ON DHV11. 
1273 ;#eeeee DEVICE REGISTER OFFSETS FROM THE CSR'S ADDRESS ##e4#« 
1274 000000 CSRO==0 ;CSR REGISTER OFFSET FROM THE CSR ADDRESS 
1275 000002 RBUFO==2 ;RECEIVE REGISTER OFFSET FROM THE CSR ADDRESS 
1276 000002 TXCHRO==2 ; TRANSMIT REGISTER OFFSET FROM THE CSR ADDRESS 
1277 000004 LPRO==4 ;LINE PARAMETER REGISTER OFFSET FROM THE CSR ADDRESS 
1278 000006 STATO==6 ;STATUS REGISTER OFFSET FROM THE CSR ADDRESS 
1279 000010 LNCTRO==10 ;LINE CONTROL REGISTER OFFSET FROM THE CSR ADDRESS 
1280 000012 TXAD10==12 ; TRANSMIT ADDRESS 1 REGISTER OFFSET FROM THE CSR ADDRESS 
1281 000014 TXAD20==14 ; TRANSMIT ADDRESS 2 REGISTER OFFSET FROM THE CSR ADDRESS 
1282 000016 TXBFCO==16 ; TRANSMIT COUNT REGISTER OFFSET FROM THE CSR ADDRESS 
1284 jeeeees EQUATES USED WITH RESPECT TO THE RX BUFFER #eeee 
1285 000020 RXBETX==16. ;LEVEL OF RX BUFFER AT WHICH TO RE-ENABLE TRANSMISSION. 
1286 000030 RXBDTX==24. ;LEVEL OF RX BUFFER AT WHICH TO DISABLE TRANSMISSION. 
1287 000100 RXBFUL==64. ;TOTAL CHARACTER CAPACITY OF THE RX BUFFER. 
1 
1289 
1304 002230 EQUALS 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BIT09== 1000 
000400 BIT08== 400 
000200 BITO7== 200 | 
000100 BIT06== 100 
000040 BITOS== 40 
| 000020 BIT04== 20 
000010 BITO3== 10 | 
; 000004 BITO2== 4 
000002 BITOl== 2 


eee 
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| GLOBAL EQUATES SECTION 


1305 


000001 


000001 


000040 
000037 
000036 
000035 
000034 


000340 


100000 


D3 


SEQ 0029 


BITOO== 1 


BIT9== BITO9 
BIT8== BITOS8 
BIT7== BIT07 
BIT6== BIT06 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITl== BITO1 
BITO== BITOO 


; EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


: ; BIT POSITION IN SECOND STATUS WORD 

EF .START== 32. ; €100000) START COMMAND WAS ISSUED 

EF .RESTART== 31. ; €040000) RESTART COMMAND WAS ISSUED 

EF .CONTINUE== 30. ; €020000) CONTINUE COMMAND WAS ISSUED 

EF .NEW== 29. ; (010000) A NEW PASS HAS BEEN STARTED 

EF .PWR== 28. ; (004000) A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRI06== 300 


PRIOS== 240 
PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 
;OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE == 400 


| 


ee ee ee we 





*& 
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| GLOBAL EQUATES SECTION 


002230 


002312 
002314 


000300 


000000 


160000 


000000 


5 65 96 56 9 6 9 0 9 0 0 6 0 0h hl ul 0 ul 0 0 gh ul 0 0 0 ht 0 0h 0h hh 0 0 0 0 wh 0 6 wh 0 gh 9 gs 
VDHB . GDT 
; 5H 96 6 96 56 9 56 6 9 5 0 9 5 6 6 0 uh 0 v1 ul i lh 0 lh wh uh 0h 0 0 0 9 0 9 wh wb 0 


.SBTTL GLOBAL DATA SECTION 


% THE GLOBAL DATA a CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST 


FRR RRR RRR EEE EERE EERE REAR EEE EKER EERE EERE ERE EEE EEEEEE EE EEES 


; Unit Varible Area 
PEELS De teeter ett i titi tit ttt ttt tt ttt Tt TT TT TTT TTT TTT TT TT TTT TTT 


RXVECA:: .WORD 
TXVECA:: .WORD 
ACTLNS:: .WORD 
LOPBCK:: .BYTE 
BRLEVL:: .BYTE 
UNITN:: .WORD 


0 


3RX VECTOR ADDRESS. 

;TX_ VECTOR ADDRESS. 

sACTIVE LINE BIT MAP. 
;LOOPBACK MODE 

sINTERRUPT BUS REQUEST LEVEL 
;UNIT NUMBER. 


[":" tele tania diene tae ee 


Device Register Address Table 
Libbbhld +++ phhheeeaaent haat Ra DDD 


DRADRT : 


C ") ae 
TXCHA:: 1° ae . 


TXBFCA:: . 


160000 
160002 
160004 
160006 
160010 
160012 
160014 
160016 


;DHV11-M CSR ADDRESS 

sDHV11-M RECEIVE/TRANSMIT BUFFER ADDRESS 
;DHV11-M LINE PARAMETER REGISTER ADDRESS 
;DHV11-M STATUS REGISTER ADDRESS 

;DHV11-M LINE CONTROL REGISTER ADDRESS 

;DHV11-M TRANSMIT BUFFER 1 REGISTER ADDRESS 
;DHV11-M TRANSMIT BUFFER 2 REGISTER ADDRESS 
;DHV11-M TRANSMIT BUFFER COUNT REGISTER ADDRESS 


FERRER EERE EERE EERE REE REE EERE EERE EERE EERE EEE EERE EEE EERESEEEEEEEEE ERE REE 


; Assorted global variables: 
PEPE T ii ee eet ett P PPP PPT rr iit t ttt tt tt TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT 


BUFPTR:: 
CTRLCF:: . 
TSTNUM:: . 
IESTAT:: . 
LGRP1IM:: . 
LGRPOM:: . 
PASCNT:: . 
RXINTC:: . 
RXINTF:: . 
TXINTC:: . 
TXINTF:: . 
TP4VEC:: . 
TP4FLG:: . 
WORD1:: 


oooooooo 


sSTORAGE FOR RECEIVE CHARACTER BUFFER POINTER. 
sSTORAGE FOR THE CONTROL-C FLAG. 

;STORAGE FOR THE TEST NUMBER 

;STORAGE FOR STATES OF THE DUT INT ENABLE BITS. 
;BIT MAP OF LINES IN LINE GROUP I. 

;BIT MAP OF LINES IN LINE GROUP II. 

;$T0'G FOR PASS COUNT USED IN ROM VERSION# TST. 
;STORAGE FOR RECEIVER INTERRUPT FLAGS. 

;STORAGE FOR RECEIVER INTERRUPT FLAGS. 
sSTORAGE FOR TRANSMIT INTERRUPT COUNT. 
sSTORAGE FOR TRANSMIT INTERRUPT FLAGS. 
sSTORAGE FOR THE NORMAL 004 TRAP VECTOR. 
sFLAGS SET WHEN AN EXPECTED 004 TRAP OCCURS. 
sLOCATION FOR PASSING INDIRECT PARAMETERS. 


SEQ 0030 


| CVDHBDO DHV11-M FUNC TST PART 2 MACRO Y0S.02 Monday 01-Apr-85 07:53 Page 28-1 


ee ee ee ee 


GLOBAL DATA SECTION 


| 
| 
| 1366 


1381 002342 
1382 002344 
1383 002346 


1385 002350 
1386 002350 
1387 002352 
1388 002354 
1389 002356 
1390 002360 
1391 002362 
1392 002364 
1393 002366 
1394 002370 


1418 002430 
1419 002430 
1420 002432 


177546 


000062 


177572 
000000 
000000 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


000001 


100000 


000000 
000000 


F 3 


SEQ 0031 


"ht Saue Tieim Sheed aeeptaikee ama eee en EEEEnen 


Line Time Clock variables and storage. 
PEGS SOS REE ER EERE RRE ERE RREER EEE EERE REE EREERERERE ES 


CLKCSR: : 


MSLCNT:: . 


. WORD 


177546 


;CSR ADDRESS OF THE LTC. 

sINTERRUPT PRIORITY LEVEL OF THE LTC. 
INTERRUPT VECTOR ADDRESS OF THE LTC. 

s INTERRUPT FREQUENCY OF THE LTC. 

s;HARDWARE CLOCK COUNTER #1. 

sHARDWARE CLOCK COUNTER #2. 

;HARDWARE BREAK COUNTER LOCATION. 

s;BREAK COUNT VALUE IN CLOCK TICKS. 

;NUMBER OF MILLI-SECONDS PER LTC TICK. 
;LOOP COUNT CUSED BY MSLOOP) TO DELAY 1 MS. 


i RSSERSSOSESSSESOSESESERESSSESES ESE SERE SSE SESEEEeESEEEEESEESESESESEETESERSEEESe 


Memmory Management Variables and Flags. 
EHH S OSS OOH GEO ERE RE REE EERE EERE EERE EERE EERE REE EE ES 


MMSRO: : 


MMPRES: : 
MMENAB: : 


PARATB:: 


PAROA:: . 
PARIA:: . 
PAR2A:: . 
PARSA:: . 
PAR4A:: . 
PARSA:: . 
PARGA:: . 
PARTA: : 


PARATE:: 


. WORD 
- WORD 
. WORD 


177572 
0 
0 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 


sADDRESS OF MEM MGT STATUS REGISTER #0. 
;MEM MGT PRESENT FLAG (0 IF MM NOT PRESENT). 
;MEM MGT ENABLED FLAG (0 IF MM NOT ENABLED). 


;BASE OF MEM MGT PAR ADDRESS TABLE. 
sADDRESS OF MEM MGT PAR #0. 
sADDRESS OF MEM MGT PAR #1. 
;ADDRESS OF MEM MGT PAR #2. 
sADDRESS OF MEM MGT PAR #3. 
sADDRESS OF MEM MGT PAR #4. 

ADDRESS OF MEM MGT PAR #5. 
s;ADDRESS OF MEM MGT PAR #6. 
;ADDRESS OF MEM MGT PAR #7. 

;END OF PAR ADDRESS TABLE. 


senenanbebaneueetaboedenmensdedebunnensbnaneennnarteansaspoonenenooesonnnnenenn 
; Table of words with corresponding bit set for generation of bit maps. 
\+ =p" Seemann yo - epeenmninpnenmmnneenemeeenm nen tn tn 


BITTBL:: .WORD 


1 


40000 
100000 


FERRER EERE EERE EERE EEE EERE EEE EERE EERE EERE EERE EERE EEE EEE EERE REEEEE EEE EEE EEE ES 


;* GPR Save Areas Zero and One. 
Eetet ett Pete ti TTT it Pitt tit tet ttt TTT TT TTT TTT TTTTTTTTTTTT TIT TTTTTTitTiTitTiTT 


GPRSOB: : 
. WORD 
. WORD 


0 
0 


;BASE OF GPR SAVE AREA NUMBER ZERO. 
s;WORD 1, STORAGE FOR R1. 
;WORD 2, STORAGE FOR R2. 


ee ee 


G3 
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| GLOBAL DATA SECTION 


1421 002434 
1422 002436 
1423 002440 


1427 002442 
1428 002444 
1429 002644 


000000 
000000 
000000 


000000 


000000 


000012 
000014 


-WORD 0 WORD 3, STORAGE FOR R3. 
-WORD 0 s;WORD 4, STORAGE FOR R4. 
-WORD 0 ;WORD 5, STORAGE FOR RS. 


RRR RRR EERE EERE REE EERE ERE RE REE EE EERE EERE EEE ERE RARER REKERERE EEE 


: Storage area for the BMP code queue. 
bbbbbbppppetetiet tir iti titi iit ititititittt ttt tt ttt tt titi tt ttt tt TTT eee Te ee Te ee es 


BMPCOP: : -WORD 0 ;POINTER USED TO ACCESS THE NEXT CELL IN QUE. 
BMPCQB: : -BLKW 64. ;STORAGE FOR 32 CELLS, TEST# PLUS BMP CODE. 
BMPCQE: : ;LAST ADDRESS PLUS 2 OF THE BMP CODE QUEUE. 


5 ERR RRR TREE EEE EERE EER EERE EE EERE EEE EEEEEEE AREER EEE EEE EEE 
; Storage area for the contents of the DUT STAT register states. 
5A RRR RRR REE EERE EE EERE AEE EERE EERE EE EE EEEEEE EE REESE 


STSTB:: ;BASE OF DUT STAT STORAGE TABLE. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE O. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 1. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 2. 
-WORD 0 sSTORAGE FOR STAT REGISTER FOR LINE 3. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 4. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 5. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 6. 
WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 7. 
WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 8. 
WORD 0O ;STORAGE FOR STAT REGISTER FOR LINE 9. 
-WORD 0O ;STORAGE FOR STAT REGISTER FOR LINE 10. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 11. 
-WORD 0 STORAGE FOR STAT REGISTER FOR LINE 12. 
WORD OQ ;STORAGE FOR STAT REGISTER FOR LINE 13. 
-WORD 0 ;STORAGE FOR STAT REGISTER FOR LINE 14. 
-WORD 0O ;STORAGE FOR STAT REGISTER FOR LINE 15. 

STSTE:: sEND OF DUT STAT STORAGE TABLE. 


5 EERE EEE EEE EEK ERE ARERR EKER EERE ERE ERREE ERE EEEERERERE RK EES 


; General table and buffer area--513 words. 
5 RRR REE REE R EEE EERE EEE ERE EERE RREA EE EEE EEE EEE REREEEEE EEE EEE EEE EE 


BUFBAS: : ;BASE OF MEMORY BUFFER. 

ERLTBL: : -BLKW 128. sFIRST HALF OF GENERAL TABLE OR BUFFER. 
BUFMID: : -BLKW 64, ;SECOND HALF OF GENERAL TABLE OR BUFFER. 
BUF 3QT:: -BLKW 64. sLAST QUARTER OF THE BUFFER AREA. 

BUFEND: : ;END OF GENERAL PURPOSE MEMORY BUFFER. 
ENDETB: : -BLKW 16. ;BUFFER OVERFLOW SPACE. 


5 RRR EEE EEE REE EERE ERR REE EEE EEE EERE ERE R EE EREREEREEEEEEEEREEEEE EERE EERE ES 
; Reception table of counters 

hiibhbhhppep eee teeter r titi i iii i iit ii ttt ttt titi t tt ttt TTT TTT TTT TTT TTT TTT TT TTT TTT 
RXCNTB:: .BLKW 16. ;RECEPTION CHARACTER COUNTERS TABLE. 

5 RRR REE RRR ERE EE EERE ERE RARER EERE AEEEEEEERREEERER EKER EEREER EERE 
;* Table for storage of RX/TX line number associations. 

;* The associations are stored as line number times 2 for use as offsets 

;* when accessing a table of words. 

:* NOTE: Do not write a non-zero value into the upper byte of any entry. 
Lidbhhbbhpaepeeetet rr rir iri titi t titi tt ttt tt tee TTT TTT TT TT TTT TTT TTT TTT TTT TTT TTT 
TXRXLB: : ;BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 


WORD 0 sTX/RX LINE OFFSET FOR RX/TX LINE O. 
-WORD 2. ;TX/RX LINE OFFSET FOR RX/TX LINE 1. 
-WORD 4, ;TX/RX LINE OFFSET FOR RX/TX LINE 2. 
WORD 6. 3 TX/RX LINE OFFSET FOR RX/TX LINE 3. 
WORD 8. ;TX/RX LINE OFFSET FOR RX/TX LINE 4. 
-WORD 10. ;TX/RX LINE OFFSET FOR RX/TX LINE 5. 
-WORD le. sTX/RX LINE OFFSET FOR RX/TX LINE 6. 


SEQ 0032 


ee ee wee 


H3 
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SEQ 0033 
, GLOBAL DATA SECTION 
1478 004022 000016 -WORD 14. ;TX/RX LINE OFFSET FOR RX/TX LINE 7. 
1479 004024 000020 -WORD 16. ;TX/RX LINE OFFSET FOR RX/TX LINE 8. 
1480 004026 000022 -WORD 18. ;TX/RX LINE OFFSET FOR RX/TX LINE 9. 
1481 004030 000024 -WORD 20. ;TX/RX LINE OFFSET FOR RX/TX LINE 10. 
1482 004032 000026 -WORD 22. ;TX/RA LINE OFFSET FOR RX/TX LINE 11. 
1483 004034 000030 -WORD 24. ;TX/RX LINE OFFSET FOR RX/TX LINE 12. 
1484 004036 000032 -WORD 26. ;TX/RX LINE OFFSET FOR RX/TX LINE 13. 
1485 004040 000034 -WORD 28. ;TX/RX LINE OFFSET FOR RX/TX LINE 14. 
1486 004042 000036 -WORD 30. ;TX/RX LINE OFFSET FOR RX/TX LINE 15. 
1487 004044 TXRXLE: : ;END OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1488 .EVEN ;GUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY. 
1489 eTti tii iii iti titi iii iiiiiitiritittiiitititiiiiitiiiiiritiiititiiiriititiitiit ts, 
1490 ;* Table for storage of RX/TX line number associations. 
1491 ;* The associations are stored as line numbers which can be used as such or 
1492 i* as offsets when accessing a table of bytes. 
1493 Iti iiiiitiiiti siti titi titi titi iitisetiiiitiiiiiitiitiitiiiiiiiiiiiiiiiitiiis, 
1494 004044 TXRLNB: : ;BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1495 004044 000 .BYTE 0 ;TX/RX LINE FOR RX/TX LINE O. 
1496 004045 001 oYte if ;TX/RX LINE FOR RX/TX LINE 1. 
1497 004046 002 -BYTE 2 ;TX/RX LINE FOR RX/TX LINE 2. 
1498 004047 003 OYTe 3 ;TX/RX LINE FOR RX/TX LINE 3. 
1499 004050 004 .BYTE 4 ;TX/RX LINE FOR RX/TX LINE 4. 
1500 004051 005 wYle & 3 TX/RX LINE FOR RX/TX LINE 5. 
1501 052 006 -BYTE 6 ;TX/RX LINE FOR RX/TX LINE 6. 
1502 004053 007 -BYTE 7 ;TX/RX LINE FOR RX/TX LINE 7. 
1503 004054 010 -BYTE 8 ;TX/RX LINE FOR RX/TX LINE 8. 
1504 004055 011 BYTE 9%. ;TX/RX LINE FOR RX/TX LINE 9. 
1505 004056 012 -BYTE 10. ;TX/RX LINE FOR RX/TX LINE 10. 
1506 004057 013 ‘is, oF 3 TX/RX LINE FOR RX/TX LINE 11. 
1507 004060 014 -BYTE 12. 3 TX/RX LINE FOR RX/TX LINE 12. 
1508 004061 015 wYlte 3. ;TX/RX LINE FOR RX/TX LINE 13. 
1509 004062 016 -<BYTE 14. ;TX/RX LINE FOR RX/TX LINE 14. 
1510 004063 017 -BYTE 15. ;TX/RX LINE FOR RX/TX LINE 15. 
1511 004064 TXRLNE: : sEND OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1512 .EVEN ;GUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY. 
1513 iii tii iii t iti titi titi iii iit i ri ri titi tii iiitiiiiitiiittititt ttt titi titi tite t tt 
1514 ;* Table of TX/RX line number associations in staggered loopback. 
1515 ;* The associations are stored as line number times 2 for use as offsets 
1516 i* when accessing a table of words. 
1517 ;* This is a table of data for reading only. Use to load the above table. 
1518 ;* NOTE: Must convert from BYTEs to wORds when loading above table. 
1519 Iti iii titi iti tit iiiiiiiiiiiititititit¢iitiititiiiiiiti itt ttt ttt ttt ttt iti tt tite) 
1520 004064 STGTRB: : ;BASE OF STAGGERED TX/RX LINE NUMBER TABLE. 
1521 004064 004 -BYTE 4. ;TX/RX LINE OFFSET FOR RX/TX LINE O. 
1522 004065 006 -BYTE 6. ;TX/RX LINE OFFSET FOR RX/TX LINE 1. 
1523 004066 000 -BYTE O ;TX/RX LINE OFFSET FOR RX/TX LINE 2. 
1524 004067 002 . ot i A ;TX/RX LINE OFFSET FOR RX/TX LINE 3. 
1525 004070 014 -BYTE 12. ;TX/RX LINE OFFSET FOR RX/TX LINE 4. 
1526 004071 016 -BYTE 14. ;TX/RX LINE OFFSET FOR RX/TX LINE 5. 
1527 004072 010 Lt a. Ge ;TX/RX LINE OFFSET FOR RX/TX LINE 6. 
1528 004073 012 -BYTE 10. ;TX/RX LINE OFFSET FOR RX/TX LINE 7. 
1529 004074 024 -BYTE 20. ;TX/RX LINE OFFSET FOR RX/TX LINE 8. 
1530 004075 026 . iui 6? ;TX/RX LINE OFFSET FOR RX/TX LINE 9. 
1531 004076 020 evre 56. ;TX/RX LINE OFFSET FOR RX/TX LINE 10. 
1532 004077 022 . ii. me * ;TX/RX LINE OFFSET FOR RX/TX LINE 11. 
1533 004100 034 -BYTE 28. ;TX/RX LINE OFFSET FOR RX/TX LINE le. 
; 1534 004101 036 BYTE 30 ;TX/RX LINE OFFSET FOR RX/TX LINE 13. 


—_ — eee 


13 
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| SEQ 0034 
| SLOBAL DATA SECTION 
1535 004102 030 BYTE 24, ;TX/RX LINE OFFSET FOR RX/TX LINE 14. 
1536 004103 032 ‘BYTE 26. ;TX/RX LINE OFFSET FOR RX/TX LINE 15. 
1537 “EVEN ;GUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY. 
1550 004104 ERRTBL 
004104 LSERRTBL: : 
004104 000000 ERRTYP: : WORD 0 
004106 000000 ERRNBR: : ‘WORD 0 
004110 000000 ERRMSG: : “WORD 0 
004112 000000 ERRBLK: : ‘WORD 0 


1551 
1552 .EVEN 


j 
a ee ee 


— ee ee ee 


JS 
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SEQ 0035 
_GPR HANDLING ROUTINES FOR SUBROUTINE CALLS. 

1554 .SBTTL GPR HANDLING ROUTINES FOR SUBROUTINE CALLS. 

1555 ERE E AREER EERE EERE ERR EERE EERE EERE EERE EERE ERE EERE EER EEE EEE 

1556 ;* There are 4 routines and macro definitions used for the handling of 


| ;* GPR values during subroutine calls within this program. The four 
1339 ;* routines/macro calls have the following names: 
1560 ; SAVE - Macro definition used at the beginning of a subroutine to 
1561 ; save the GPR contents for later restoration. 
1562 ; PASS - Macro definition used at the end of a subroutine to restore 
$ the previously saved GPR contents and to leave the contents 
; of the specified GPR(s) intact (NOT restored). 
; PREGOS - Subroutine which is called from the SAVE and PASS macro 
; expansions which actually performs the actions on the GPRs. 
i 
' 
| 


During a subroutine which uses these GPR save routines the values 
of the GPRs are stored on the stack in the following stack frame: 


SP -> RET PC INTO PREGOS ROUTINE. 

SP+2 -> GPR RO CONTENTS. 

SP+4 -> GPR R1 CONTENTS. 

SP+6 -> GPR R2 CONTENTS. 

SP+8 -> GPR R3 CONTENTS. 

SP+10 -> GPR R4 CONTENTS. 

SP+12 -> GPR RS CONTENTS. 

SP+14 -> RET PC INTO CALLER OF SUB’ TNE WHICH CALLED PREGOS. 


Each level of sub'tne calling uses 8 words of stack overhead. 
The SAVE and PASS macros can also be used in “straight line code” 
to save and restore the GPR values. In any case, after the 
issuing of a PASS call the GPRs will be restored to the values 
they had prior to the last SAVE call (except for the excepted, 
or passed intact, GPRs specified as parameters to the PASS call) 
and the SP will also be restored to its condition before the last 
SAVE call. The programmer must be sure that the SP has the same 
value when the PASS macro is called as it had immediately after 
the SAVE macro was called. 

Tittt itt titittittt titi tii ttt ttt ttt ttt titi ttt tit tt ttt TTT TT TTT TTT itt TTT Tit itt 


HHH HEH HE HH 


ee Ce - 
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/GPR FRAME ACCESS EQUATES 


1592 
1593 
594 
1595 
1596 
1597 
1598 
1599 000036 
1600 000016 
1601 000014 
1602 000012 
1603 000010 
1604 000006 
1605 000004 


1606 000002 


p++e 


-SBTTL GPR FRAME ACCESS EQUATES 


re that allow access to the stack frame. These are the 
;0ffsets into the stack for registers saved during the PREGOS 


;routine. 


LPCSLT== 
PCSLOT== 
RSSLOT== 
R4SLOT== 
R3SLOT== 
R2SLOT== 
R1SLOT== 
ROSLOT== 


;0ffset 
;0ffset 
;0ffset 
;0ffset 
;0f fset 
;0ffset 
;0ffset 
;0ffset 


for 
for 
for 
for 
for 
for 
for 
for 


last return PC. 
return PC. 


SEQ 0036 


-_———— + 


onewas ee 
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0037 
| GLOBAL MACRO DEFINITION - SAVE - 
1608 .SBTTL GLOBAL MACRO DEFINITION - SAVE - 
1609 Pitti iti ttitittitittititittitti titi tit iiitititiititiititiitiitiittiittt tt ttt ttt 
PtH ; contents of the GPRs RO thru R5 
1613 ; INPUTS: SP - potent since subroutine was entered 
140 ; RSSLOT - Offset to stack slot for R5 (Equated to 14 Octal) 
1616 ; OUTPUTS: GPR save area on the stack is loaded with the contents of GPRs 
44 ; TOP OF STACK - Loaded with the return address into PREGOS 
1619 ;* CALLING SEQUENCE: SAVE 
1620 ;* 
1621 ;* COMMENTS: No arguments are allowed. 
pa | :* The PASS macro should be called to restore the GPR values. 
;* 
1624 ;* SUBORDINATE ROUTINES CALLED: PREGOS. 
1625 RRR RR RR RR RR REE EERE EERE REE EEE EEE EERE EERE EERE EEEEEEE EE EEE 
1626 
1627 -MACRO SAVE 
1628 ALLeT 
1629 JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
1630 .NLIST 
1631 .ENDM SAVE 


1610 ;* This macro is used at the beginning of a subroutine to save the 

* 2 
& 
* 
* 
* 
ac 
* 
* 
* 

| 

' 


M3 
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1680 -ENDM PASS 


SEQ 0038 
| GLOBAL MACRO DEFINITION - PASS - 
1633 .SBTTL GLOBAL MACRO DEFINITION - PASS - 
1634 Pitiiiiitit ttt tite titt itt tt tt ttt titi ttt titi ttt titi titi ttt ttt ti ttt ttt iti ttt ttt 
1635 :* This macro is used in conjunction with the SAVE macro. It is 
1636 ;* called at end of a subroutine to — parameters in GPRs back to the 
1637 ;* calling routine by altering the GPR save area on the stack and then 
as :* jag to PREGOS to restore the GPRs to their saved values. 
;* 
1640 ;* INPUTS: pay allowed ARGUMENTS are "RO" thru “R5". 
1641 ;* ROSLOT thru RSSLOT must be equated to their respective GPR save 
at * slot offsets before calling this macro. 
;* 
iss ;* OUTPUTS: The GPR values are put in their respective slots on the stack. 
;* 
1647 ;* CALLING SEQUENCE: PASS RO,R1,... 
;* 
1648 ;* COMMENTS: Any combination of GPR arguments may be listed in any order. 
1649 ;* For onngie, the following are legal: 
1650 :* R1 
1651 ;* PASS R4,RO,R2 
1652 ;* The GPRs listed as arguments will be passed intact to the 
1653 :* calling routine, all other GPRs will be restored. 
ie :* The SP must be at its original value when PASS is called. 
;* 
1656 ;* The macro call 
1657 :* PASS RO,R3 
1658 ;* expands into the following as assembly co 
1659 ;* MOV RO,RO © PUT RO IN STACK SLOT. 
1660 :* MOV R3, RScLoTCSP) ;PUT R3 IN STACK SLOT. 
1661 ;* JSR PC, a(SP)-+ ;RETURN TO PREGOS SUBRT. 
1662 ;* In this exemple GPRs R1, R2, R4, and RS will be restored to 
1663 i* their values contained in the stack frame and RO and R3 
1668 ;* will be left at their values prior to this PASS call. 
;* 
1666 ;* SUBORDINATE ROUTINES CALLED: (PREGRT - Label within PREGOS, value on stack.) 
1667 [RARER AAA RAAT EERE AAA A AEE EERE RARER EERE ERE E REE EEEEEREEEEEEEEEEEEES 
1668 
1669 -MACRO PASS A,B,C,D,E,F 
1670 . IRP X,<A,B,C,0,E,F> 
1671 IF NB , X 
1672 -LIST 
1673 MOV X,X' SLOTCSP) ;PUT X IN STACK SLOT. 
1674 -NLIST 
1675 .ENOC 
1676 .ENDM 
1677 -LIST 
1678 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
1679 -NLIST 
| 
! 
| 


— oe eee = 4 
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004114 010446 


6 
004130 016605 
004134 004736 


004136 012605 
0126 


004152 000205 


000014 


- PREGOS - 


.SBTTL GLOBAL SUBROUTINE - PREGOS - 

Pitiiiit ii iiiiititit ttt iti i iiitiititititiiiiititiiiiiiiiiiitiiiititititi ttt ttt. 
;* Preserve Registers RO through R5 for subroutine calls. 

;* 

;* INPUTS: The return address back into the calling routine must be in 
3* GPR RS. (Ci.e.- Macros use "JSR R5S,PREGOS”.) 

3% 

3;* OUTPUTS: Registers RO through R5 are saved on the stack. 

;* 

;#CALLING SEQUENCE: SAVE ;Macro expansion calls PREGOS. 

;* [Subroutine code}... 

a PASS ;Macro expansion recalls PREGOS. 

t SCOMMENTS : This routine is re-entrant. 

:* 

3* Parameters may be passed out of a subroutine by modifying the 
;* register save area on the stack. Use the PASS GPRn macro 

;* to return GPR values intact. 

;* Use the RnSLOT offsets from the SP to peee other parameters. 
Hd (Example: MOV VALUE , ROSLOT( SP ) 

8 Make sure the SP is at its original value when you do this. 


; #SUBORDINATE ROUTINES CALLED: None. 
{RRR ESAS EES EEE E EERE EEE EERE AREER ERASER EE EEE R ARES ER EEEE EEE EEE EEE EES 


PREGOS: ;RS HAS BEEN LOADED ON THE STACK BY THE SUBROUTINE CALL 
MOV R4,-(SP) ;SAVE R4 
MOV R3,-(SP) ;SAVE R3 
MOV R2,-(SP) ;SAVE R2 
MOV R1,-(SP) ;SAVE Ri 
MOV RO,-(SP) ; SAV a ; 
MOV RS,-CSP) ;PUSH RETURN PC ON TOP OF STACK 
MOV RSSLOT(SP),RS §;RESTORE RS TO VALUE IT HAD BEFORE CALLS 
JSR PC,a(SP)+ ;Call the subroutine at the return address 


ifrom the PREGOS call, putting the present 
PC on the stack as a return address into 
;this (PREGOS) routine. 


3°? 
;The Febleving code is executed when the calling routine does a 
;"return” (JSR PC,a@(SP)+]) using the PC deposited on the stack above. 


PREGRT:: MOV (SP)+,R5 ;Put return PC in R5. 
MOV (SP)+,RO ;Restore RO 
MOV (SP)+,R1 ;Restore R1. 
MOV (SP)+,R2 ;Restore R2. 
MOV (SP )+,R3 ;Restore R3. 
MOV (SP)+,R4 sRestore R4. 
RTS RS ;Return to the subroutine which called PREGOS. 


restoring RS in the process. 


SEQ 0039 


1766 
1767 
1774 


004154 104 110 
004157 061 061 
004162 115 000 


126 
055 


B4 


-SBTTL GLOBAL TEXT SECTION 
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SEQ 0040 


§ 96 96 96 9 9 9 kk kk kh 0 hh uh 0 0 0 ul i ul ul ul uu uu hh hh eh eh eh eh eh wh wd ww 


; 
; SKL1.P11 


3 
MEMS ASASSA SAAS SSS SSAA AAAS AAA SASS SSS SSS SSSA SSAA aS 


3+ 
; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 


; MORE THAN ONE TEST. 


; NAMES OF DEVICES SUPPORTED BY PROGRAM 


DEVTYP <DHV11-M> 


L$DVTYP:: 
-ASCIZ s#DHV11-Ms 
.EVEN 
; TEST DESCRIPTION 
DESCRIPT <DHV11-M FUNC TEST PART 2> 
L$DESC:: 
-ASCIZ /DHV11-M FUNC TEST P 
EVEN 
EVEN 


| CVDHBDO DHV11-M FUNC TST PART 2 MACRO YOS.02 Monday 01-Apr-85 07:53 Page 35 SEQ 004 | 
| 1 
/ GLOBAL TEXT SECTION | 


| 

1776 
| 1777 j SKS SSSSSSS CSSA S SSS S SSSA SSSA SSSA SSSA SSSA SSS SSSA SSSA SSS ee ehh 
c 

1778 ; 

1779 ; VDHB . FMT 


1781 ; SKESSKALA ALLA SAS ASA AAS ALASKA SASL SSAA STAT Nn es 


iyer ; FORMAT STATEMENTS USED IN PRINT CALLS 


ee ee ee eee 


D4 
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{ 
| 
| 1809 


6% 


1865 007110 


5 95 96 96 9 i i kh ll uk ot kl hl kh hh hh hh hhh hh hh eh 


; VOHB . MSG 


; SSKNLMLASAA LALA AA KSA LSA SALSA SA SALAS SANs as 


GLOBAL MESSAGE AREA 


.NLIST BIN 

.SBTTL 

MFUNIT * ASCIZ 
EFO503 -ASCIZ 
EFOSOS .ASCIZ 
EF 1601 .ASCIZ 

F3001 .ASCIZ 
EF3002 -ASCIZ 
EF6401 .ASCIZ 
EF7801 .ASCIZ 
EF8401 .ASCIZ 
EF 8402 .ASCII 

.ASCIZ 

EF9001:: .ASCIZ / 
EF9002:: .ASCIZ 
EF9003:: .ASCIZ 
EF 9004 .ASCIZ 
EF9005 .ASCIZ 
EF9006 .ASCIZ 
EF9019 -ASCIZ 
—F9301 . ASCIZ 
EF9302 .ASCI 
—MO0103 SCI 
EM0525 ASCIZ 
EM0526 ASCIZ 
—M1601: ASCIZ 
EM4001: ASCIZ 
EM4002: ASCIZ 
—M4101: ASCIZ 
EM4102: ASCIZ 
E—M4103: ASCIZ 
—M4901: ASCIZ 
EM4902: ASCIZ 
—MS001 ASCIZ 
—M5101 ASCIZ 
—M5102 ASCIZ 
—M5103 ASCIZ 
—M5201 ASCIZ 
EMS202 ASCIZ 
—M5301 ASCIZ 
—M5302 ASCIZ 
—M5303 ASCIZ 
EM5401 ASCIZ 
EM5402 ASCIZ 
—MS5501 ASCIZ 
EMS601:: .ASCIZ 
EMS5701:: .ASCIZ 


peeeeeeeeee FORMAT STATEMENTS #4 eek eee ee 


— UNIT :#D4sN/ 

/#A sD58A es + cect RECEIVED. #N/ 
/%A TA ABORTED # 

/#A EXPECTED OR CORRECT VALUE: #039N/ 

/#A ACTUAL OR MEASURED VALUE: #03%N/ 


/#—A sD28A(D).N/ 
/%T#A ON LINE #D28A DECIMAL .SN/ 
/#A TA FOR LINE #D28A(D) AFFECTS OTHER MODEM a sN/ 
/#A CHANGING #T#A Bs LINE #D2sA(D) AFFECTED / 
— A FOR LINE #D28A(D).# 

%A UNEXPECTED ST#A POUND IN RECEIVE CHAR FIFO:#N/ 
/%A CODE IS ASSOCIATED WITH LINE: #D2sN/ 
/#A CODE IS: #s03sN/ 
/#A STA VALUE: #038N/ 
/#A STA VALUE: NONESN/ 
/%A STA SD28N/ 
/%A = STSA S06KN/ 
/A STSD28A(D), BMP CODE REPORTED :#038A(0)8N/ 


: Z /#A OVERFLOW OCCURRED (MORE THAN 31 BMP CODES FOUND IN QUEUE )N/ 
;eeeeeceeeeee MESSAGE AREA teeeeeeeeeee 
: Z /DEVICE REGISTER ACCESS ERRORS/ 


7 RX INTERRUPT(S) RECEIVED WITH RX INTERRUPTS DISABLED./ 
/ _TX INTERRUPT(S) RECEIVED WITH TX INTERRUPTS DISABLED./ 
/TIMEQUT ae Bee FOR MASTER RESET TO CLEAR/ 


D ON LINE: 
/DMA_START BIT FOUND SET RETER DMA ABORTED ON LINE: / 
/OAUTO CINACTIVE) BIT TEST/ 
/ QAUTO BIT BA LINE: / 
/OAUTO (ACTIVE) BIT TEST/ 
/ZIAUTO (INACTIVE) TEST/ 
/IAUTO BIT FOUND SET ON LINE: / 
/IAUTO BIT BAD ON LINE: / 
/IAUTO (ACTIVE) TEST/ 
/IAUTO BIT FOUND CLR ON LINE: / 
/FIFO VALID DATA TEST/ 
/FIFO BAD DATA FIELD CORRUPTED, TEST USED LINE:/ 
/BMP CODE FOUND IN FIFO, TEST INVAILDATED/ 
\FIFO 3/4 ALARM (INACTIVE) TEST\ 
/FIFO BAD, ALARM SIGNAL DEFECTIVE/ 
\FIFO 3/4 ALARM (ACTIVE) TEST\ 
\FIFO 3/4 ALARM (ACTIVE/INACTIVE) TEST\ 
\FIFO 1/2 LEVEL (ACTIVE/INACTIVE) TEST\ 


me me 


E4 
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, GLOBAL MESSAGE 


1906 011244 


AREA 


—M9010:: . 
EM9017:: . 


EM9026:: . 


/BREAK GENERATION TEST / 
/ BREAK NOT RECEIVED ry LINE(S):/ 
/NO OVERRUN ERROR TEST/ 
7 OVERRUN ERROR REPORTED WHEN NONE FORCED/ 
ie a ERROR TEST/ 
NO OVERRURN ERROR REPORTED, OVERRUN FORCED/ 

7o0eM CONTROL DTR Tt oe il 

/ OTR BIT FAULTY ON LINE:/ 
/MODEM CONTROL RTS BIT TEST/ 

/_ RTS BIT FAULTY ON LINE:/ 
70SR MODEM STATUS SIGNAL TEST / 
/__DSR MODEM STATUS + ee 
/RI_ MODEM STATUS SIGNAL TEST 
7 __RI MODEM STATUS SIGNAL DEFECTIVE/ 
/CTS tye STATUS SIGNAL TEST 
/ EM STATUS — dane 


/CTS/ 
—e CONTROL SIGNAL INTERACTIONS TEST / 


/CABLE, PANEL, LOOPBACK CONNECTOR DATA LINE TEST / 

\TX/RX LINE ERROR ON THE A LOOPED BACK re LINES:\ 
/TX_ DATA LINE INTERACTIONS TEST 

/DATA LINE INTERACTIONS/ 


/TX/ 
/EXPECTED OR Nan 
/ACTUAL OR MEASURED / 
/ FIFO WILL NOT PURGE A aly VALIG STUCK SET),/ 
/ REMAINDER OF TEST - IPPED./ 
LPR CONTENTS: 
/ UNEXPECTED = FOUND IN FIFO FROM LINE: / 
/BMP CODE REPORT 
/BMP CODE FOUND IN TEST / 
/THE LAST BMP CODE WAS FOUND IN TEST / 
/UNEXPECTED BMP CODES FOUND DURING THIS PASS/ 


mh, 


-LIST BIN 


SEQ 0043, 


‘ 


F4 


1912 ;KSKSLCSSSSSSSSASS SSSA SSSA SSS SSSA SSS SASS SSS ooh ae eh ee eh he eh a ehhh eh eS hates 


1913 
1914 SKL2.P11 


SEQ 0044 


‘ 
—4 


1916 ; KKK LKALL LALLA LALLA SAK ALASKA SKK SA SASL LSA SA a ss | 


1920 -SBTTL GLOBAL ERROR REPORT SECTION 


p++ 

; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

1924 ; USED BY MORE THAN ONE TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


| 
| 
| 


| 


— a ee ee we mee 


G4 
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SEQ 0045 
/ GLOBAL ERROR REPORTING ROUTINE - EROIO1 - 
| 1928 .SBTTL GLOBAL ERROR REPORTING ROUTINE - ERO10O1 - 
1929 Pitt titi itt ttt ttt it itttitittt ti ttt ttt ti ttt tit it itt iit tt tit ttttt ttt t tt tte ttt tt 
1930 i* This is an error reporting subroutine which prints additional error 
1931 ;* information if an error is detected in TEST 1 oo Address 
1932 i* Access Test). This subroutine reports the type of access (Read or 
1933 ;* Write or both) which caused a bus time-out trap (004 trap). 
1934 ;* A message indicating that the DHV may be at the wrong Q-bus address 
1935 :* is also printed. 
1936 :* 
1937 ;* INPUTS: RS - Error flag word. 
1938 ;* If bit 0 is set, a read error occured. 
3444 ;* If bit 1 is set, a write error occured. 
;* 
130i ;* OUTPUTS: Messages are printed at the operator console. 
:* 
1943 ;* CALLING SEQUENCE: Include the label "ERO101"” as the message pointer 
ioa5 7* parameter in the DRS error report macro call. 
:* 
1946 ;* COMMENTS: 
1947 5% 
1948 ;* SUBORDINATE ROUTINES USED: None. 
1949 5M RR RR RR KEKE EERE EERE EEE EEE EEE EE EE 
1950 
1951 011320 BGNMSG ERO101 
011320 ERO101:: 
1952 011320 SAVE ;SAVE THE GPR CONTENTS. 
1953 011320 004567 172570 JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
1954 011324 032705 000001 BIT #BITO,RS ;TEST FOR READ ERROR. 
1955 011330 001410 BEQ 2$ ;SKIP READ ERROR MSG IF NO READ ERROR. 
1956 011332 PRINTB #MSG1 ;PRINT READ ERROR MESSAGE. 
011332 012746 011424 , MOV #MSG1,-(SP) 
011336 012746 000001 MOV #1,-(SP) 
011342 010600 MOV SP,RO 
011344 104414 TRAP CS$PNTB 
011346 062706 000004 ADD #4 ,SP 
1957 011352 032705 000002 2$: BIT #BIT1,R5 ;TEST FOR WRITE ERROR. 
1958 011356 001410 .- BEQ 4$ ;SKIP WRITE ERROR MSG IF NO WRITE ERROR. 
1959 011360 PRINTB #MSG2 ;PRINT WRITE ERROR MESSAGE. 
011360 012746 011502 MOV #MSG2 , - (SP) 
011364 012746 000001 MOV #1,-(SP) 
011370 010600 MOV SP,RO 
011372 104414 TRAP C$PNTB 
011374 062706 000004 ADD #4 ,SP 
1960 011400 4$: PRINTX #MSG3 ;SUGGEST THAT DHV MAY BE AT WRONG ADDRESS. 
011400 012746 011561 MOV #MSG3, -( SP) 
011404 012746 000001 MOV #1,-(SP) 
011410 010600 MOV SP,RO 
011412 104415 TRAP C$PNTX 
011414 062706 000004 ADD #4,SP 
1961 011420 PASS ;RESTORE THE GPR CONTENTS. 
011420 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
1962 011422 ENDMSG 
011422 L1000e: 
| an 011422 104423 TRAP C$MSG 


; 1964 011424 045 101 102 MSG1:: .ASCIZ /#ABUS TIME-OUT TRAP CAUSED BY READ ATTEMPT .#N/ 


oad 


ee ee ee ee oe 


H4 
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| 011427 125 123 040 

| 011435 105 055 117 


SEQ 0046 


0 
1965 aricee 045 101 ey MSG2:: .ASCIZ /#ABUS TIME-OUT TRAP CAUSED BY WRITE ATTEMPT.#N/ 


1966 Sriees 045 101 ee MSG3:: .ASCIZ /#ADHV MAY BE AT THE WRONG Q-BUS ADDRESS. #NsN/ 


1967 
1968 .EVEN 


-—— a ee Ee ene 7 


14 
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SEQ 0047! 
| GLOBAL ERROR REPORTING ROUTINE - EROSO3 - | 
1970 .SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSO3 - 
1971 PEtitiiiiit iit tt ttt ttt iti titi titi ttt ttt titi ttt tii t itt ttt tititt ttt ttt tt tt tt ttt TT 
1972 ;* This is an error reporting subroutine which prints an additional error 
i974 i* message whose address is passed as an input parameter. 
;* . 
iors ;* INPUTS: Ri - Address of the message to print. | 
;* 
iors ;* OUTPUTS: A messages is printed at the operator console. 
;* 
1979 ;* CALLING SEQUENCE: Load the address of the message in R1. 
1980 7* Include the label "EROSO3” as the message pointer 
iss :* parameter in the Diag Super error report macro call. 
;* 
loot ;* COMMENTS: The message is printed as Basic error information. 
;* 
B+ Pitiiiiii titi ttttttttti ttt tt titi it ttt t ttt t ttt ttt ttt ttt tt iti titi tititttt itis tts 
198 
1988 011636 BGNMSG EROSO3 
1908 011636 EROSO3:: 
1990 011636 PRINTB #EFO503,R1 ;PRINT THE MESSAGE. 
011636 010146 MOV R1,-(CSP) 
011640 012746 004247 MOV #EF 0503, -(SP) 
011644 012746 000002 MOV #2,-(SP) 
011650 010600 MOV SP ,RO 
011652 104414 - TRAP C$PNTB 
son 011654 062706 000006 ADD #6, SP 
1992 011660 ENDMSG 
011660 L10003: 


| 
1985 ;* SUBORDINATE ROUTINES USED: None. 
011660 104423 TRAP C$MSG 
| 
' 


a 


4 
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2015 011662 
011662 
2016 011662 
011662 


2018 011666 
011666 
011670 
011674 
011700 
011702 
011704 


2020 011710 


011740 


004567 


010146 
012746 
012746 
010600 
104414 
062706 


016702 


010246 
012746 
012746 
010600 
104414 
062706 


004736 


104423 


172226 


004247 
000002 


000006 
172174 


004327 
000002 


000006 


SEQ 0048 
- ER1603 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER1603 - 
PETS t iS SPP T TTP T PPP T Perri iit tit tt tit itt ttt ttt ete ee TT TTT TTT TTT TTT TTT TTT TTT 
;* This error reporting routine is used to print out a basic error 
;* message, along with a message informing the operator which test is 
i* about to be aborted. 
;* 
;* INPUTS: R1 - Contains the address of the message to be printed. 
7% ERRMSG - Contains the address of the rceees that indicates 
:* the test that is being performed, eg DMA, BREAK etc. 
;* 
;* OUTPUTS: Messages are y* iotes at the operators console. 
;* "“testname TEST ABORTED” 
;* 
;* CALLING SEQUENCE: Include the lable "ER1603" as the message pointer 
:* parameter in the DRS error report* macro call. 
3;* 
;* COMMENTS: 
;* 
;* 
;* SUBORDINATE ROUTINES CALLED: None. 
PEPE e Lili STP PPP PPP PPP TTP t i ttt it ttt ttt ttt TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT 
BGNMSG ER1603 
ER1603:: 
SAVE ;SAVE THE CONTENTS OF THE GPRS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
PRINTB #EF0503,R1 ;PRINT BASIC MESSAGE ON OPERATORS CONSOLE. 
MOV R1,-(SP) 
MOV #EF 0503, -(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #6, SP 
MOV ERRMSG ,R2 ;GET THE “TEST MESSAGE”. 
PRINTB #EF1601,R2 ;PRINT “TEST ABORTED” MESSAGE. 
MOV R2,-(SP) 
MOV #EF 1601, -(SP) 
MOV »- (SP) 
MOV P,RO 
TRAP C$PNTB 
ADD #6, SP 
PASS sRESTORE THE CONTENTS OF THE GPRS. 
JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 
ENDMSG 
L10004; 
TRAP C$MSG 


SS 
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ee wee ee 


GLOBAL ERROR REPORTING ROUTINE 


2052 011742 
011742 
2053 011742 
011742 


2055 011746 


012036 


004567 


005002 
012703 


010146 
012746 
012746 
010600 
104414 
062706 
000241 
006205 
103011 


010246 
012746 
012746 
010600 
104414 
062706 
005202 
020302 
001362 


004736 


172146 


000010 


004247 
000002 


000006 


004471 
000002 


000006 


K4 


SEQ 0049 
- ER6401 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER6401 - 

iti titittitititiititititiitititititiiiiiitiiiiiiiitirigiiiiiiiiitiiitttt tt ttt) 
This is an error reporting subroutine which prints additional error 
information after the error message header. 

This subroutine is passed a GPR containing flags which indicate 

the line(s) for which the error condition should be reported. 


INPUTS: Ri - Address of the —— to be printed by this routine. 
RS - Contains the error flags, (1 flag per line). 


OUTPUTS: Messages are printed at the operator console. 


CALLING SEQUENCE: Load the address of the message in R1. 
Include the label "ER6401" as the message pointer 
parameter in the Diag Super error report macro call. 


COMMENTS: The output format of this message is: 
TEXT MESSAGE 
enn 
#nn 


eHHHHRHHHHRHRHRHRHRHRHHHR HHH HE 


Where each “tnn" is the number of a line with the error. 


;* SUBORDINATE ROUTINES USED: None. 
5A RR RR I RR RI RR RRR RR RR RR EEE EEE EE EEE EEE EE EEE EE EE EEE 


BGNMSG ER6401 


ER6401:: 
SAVE ;SAVE THE CONTENTS OF THE GPRS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
CLR R2 ;CLEAR LINE NUMBER TO ZERO. 
MOV #NUMLNS , R3 ;SET UP MAX LINE COUNT. 
PRINTB #EF0503,R1 ;PRINT MESSAGE. 
MOV R1,-(SP) 
MOV #EFOSO03, -(SP) 
MOV #2,-(SP) 
MOV SP,R 
TRAP C$PNTB 
ADD #6, SP 
CLC ;CLEAR CARRY. 
2s: ASR R5 ;SHIFT FLAG OUT INTO CARRY BIT. 
BCC 4$ ;SKIP ERROR REPORT IF CLEAR. 
PRINTB #EF6401,R2 ;PRINT MESSAGE. 
MOV R »-(S 
MOV #EF 6401, -(SP) 
MOV #2,-(S 
MOV SP, 
TRAP C$PNTB 
ADD #6, SP 
4$: INC R2 ; INCREMENT LINE COUNT. 
CMP R3,R2 ;CHECK IF MAX LINE COUNT EXCEEDED. 
BNE es ;LOOP IF NOT DONE. 
60$: PASS ;RESTORE THE SAVED CONTENTS OF THE GPRS. 
JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 
ENDMSG 
L10005: 


— ee ee ee 
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012036 104423 


L4 


53 Page 41-1 


TRAP 


SEQ 0050 


C$MSG 
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2092 
2093 


8 
012040 


012040 


0 
012040 


012064 


ee 


010346 


4 
062706 


104423 


004546 
000003 


000010 


M4 


SEQ 0051 
- ER7801 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER7801 - 
Pitt itiittititittititititiititiit¢ititititiiiiiiiitiititiiiiiiiiiiitititi? +17?) 
;* This is an error reporting subroutine which prints an additional error 
3* message whose address is passed as an input parameter. A line number 
i* is included at the end of the message. 
;* 
;* INPUTS: Ri - Address of the message to print. 
;* R3 - Number of line on which error occurred. 
;* 
;* OUTPUTS: A messages is printed at the operator console. 
;* 
;* CALLING SEQUENCE: Load the address of the message in R1. 
i* Load the line number into R3. 
:* Include the label "ER7801" as the mess pointer 
;* parameter in the Diag Super error report macro call. 
;* 
;* COMMENTS: The message is printed as Basic error information. 
3;* 


;* SUBORDINATE ROUTINES USED: None. 
SERRE EERE ERE EE EERE EERE ERE ER AREER EER ER EERE EER AREER EEE ER EEE EE EEE EEE EE EEE EE EE EE 


BGNMSG ER7801 


ER7801:: 
PRINTB #EF7801,R1,R3 ;PRINT THE MESSAGE. 
MOV Ri,-(SP) 
MOV #EF 7801, -(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #10,SP 
ENDMSG 
L10006: 


TRAP C$MSG 


22 ee ee ee ee ae 


re 


——— — Ooo ee eee —— —- - " 


2142 012170 032705 100000 BIT #BIT15,R5 ;CHECK FOR DSR SIGNAL INTERACTION. 
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0052 
GLOBAL ERROR REPORTING ROUTINE - ER8401 - 
2095 .SBTTL GLOBAL ERROR REPORTING ROUTINE - ER8401 - 
2096 ERATE TAE TATE T ESTEE EE RESTS EEEEE ETE SES ESSE SERRE EEEREE EEE SEE EERE EERE E ES 
2097 :* This error reporting subroutine is intended to report interactions 
2098 ;* which have been found between a modem signal and other modem signals. 
2099 ;* It analyzes the modem status which is stored in the STAT storage area 
2100 ;* and reports any discrepancies which are found between this stored data 
2101 ;* and the present state of the STAT registers. Specified bits on the 
S168 ;* line associated with the specified line are ignored. 
;* 
2104 ;* INPUTS: Ril - Address of signal name message 
2105 ;* R2 - Bit map of bits to are on np anesities line. 
2106 ;* R3 - r of epesl fied 
2107 ;* CSRA - Contains the address of the DUT CSR. 
2108 ;* NUMLNS - Equated to the number of lines on the DUT. 
2109 ;* STATA - Contains the address of the DUT STAT register. 
2110 :* STSTB - Label at base of STAT storage table 
otis is TXRLNB - Label at base of TX/RX line number association table. 
Stia - OUTPUTS: A messages is printed at the operator console. 
3;* 
2115 ;* CALLING SEQUENCE: Include the label "“ER8401" as the ee pointer 
oir i* parameter in the Diag Super error report macro call. 
;* 
cis ;* COMMENTS: The message is printed as Basic and Extended error information. 
;* 
2120 ;* SUBORDINATE ROUTINES USED: None. 
2121 Prittitiitiiiiititti titi tittiitit¢ tit itiiitiiittititititiiiitt titi iiitititi ttt tt) 
2122 
2123 012066 BGNMSG ER8401 
012066 ER8401: 
2124 012066 SAVE ;PRESERVE THE CONTENTS OF THE GP RS. 
e198 012066 004567 172022 JSR RS, PREGOS ;CALL REGISTER SAVE SUBRT. 
2126 012072 PRINTB #€F8401,R1,R3  ;PRINT THE BASIC MESSAGE. 

012072 010346 MOV R3,-(SP) 
012074 010146 MOV R1,-(SP) 
012076 012746 004604 MOV #EF 8401, -(SP) 
012102 012746 000003 MOV 03,-(SP) 
012106 010600 MOV SP ,RO 
012110 104414 , TRAP C$PNTB 

— 012112 062706 000010 ADD #10,SP 

2128 012116 010167 000204 MOV R1,44$ ;SAVE THE ADDRESS OF THE SIGNAL NAME MESSAGE. 

2129 012122 005001 CLR Ri ;CLEAR THE es COUN 

2130 012124 012704 002644 MOV #STSTB,R4 ;SET UP STAT STORAGE POINTER TO BASE OF TABLE. 

2131 012130 010177 170106 2s: MOV R1,@CSRA ;SET UP THE CSR IND.ADR.REG FI 

2132 012134 017700 170110 MOV @STATA,RO ;GET THE CONTENTS OF THIS LINE'S STAT REGISTER. 

2133 012140 011405 MOV (R4),R5 ;GET THE PREVIOUS CONTENTS FROM STORAGE. 

2134 012142 040005 BIC RO,RS ‘ 

2135 012144 042400 BIC (R4)+,RO 

2136 012146 050005 BIS RO,RS ;XOR PRESENT AND STORED STAT VALUES. 

2137 012150 012700 043777 MOV #43777,RO ; PREPARE TO MASK OUT UNUSED BITS. 

2138 012154 120163 004044 CMPB R1,TXRLNBCR3) ;IS THIS LINE ASSOCIATED WITH SPECIFIED LINE? 

2139 012160 001002 BNE 4$ ;DON'T MASK OUT SPECIFIED BITS IF IT IS NOT. 

2140 012162 056600 000006 - 6F§ R2SLOT(SP),RO  ;MASK OUT SPECIFIED ued 

2141 012166 040005 4$: BIC RO,RS ;GET BIT MAP OF UNDESIRED CHANGES. | 
| 








Cae B5 
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SEQ 0053 
GLOBAL ERROR REPORTING ROUTINE - ER8401 - 

2143 012174 001404 BEQ 6$ ;SKIP PRINTING LINE IF NO DSR INTERACTION. 

2144 012176 012702 010304 MOV #€M8403 ,R2 ;SELECT DSR ERROR MESSAGE. 

2145 012202 004767 000064 JSR PC ,40$ ;PRINT THE LINE OF THE ERROR MESSAGE. 

2146 012206 032705 020000 6$: BIT #61713, RS ;CHECK FOR RI SIGNAL INTERACTION. 

2147 012212 001404 BEQ 8$ ;SKIP PRINTING LINE IF NO RI INTERACTION. 

2148 012214 012702 010310 MOV #EM8404 ,R2 ;SELECT RI ERROR MESSAGE. 

2149 012220 004767 000046 JSR PC ,40$ ;PRINT THE LINE OF THE ERROR MESSAGE. 

2150 012224 032705 010000 8$: BIT eBiT12, RS ;CHECK FOR DCD te INTERACTION. 

2151 012230 001404 BEQ 10$ ;SKIP PRINTING LINE IF NO DCD INTERACTION. 

2152 012232 012702 010313 MOV #EM8405 ,R2 ;SELECT DCD ERROR MESSAGE. 

2153 012236 004767 000030 JSR PC ,40$ ;PRINT THE LINE OF THE ERROR MESSAGE. 

2154 012242 032705 004000 10$: BIT #61T11,R5 ;CHECK FOR CTS SIGNAL INTERACTION. 

2155 012246 001404 BEQ 12$ ;SKIP PRINTING LINE IF NO CTS INTERACTION. 

2156 012250 012702 010317 MOV #EM8406 ,R2 ;SELECT CTS ERROR MESSAGE. 

siee 012254 004767 000012 JSR PC ,40$ ;PRINT THE LINE OF THE ERROR MESSAGE. 

2159 012260 005201 12$: INC Ri ;SELECT NEXT LINE. 

2160 012262 020127 000010 CMP R1, #NUMLNS ;ALL_ LINES DONE? 

2161 012266 002720 BLT 2s ;LOOP IF NOT ALL LINES DONE. 

gise 012270 000417 BR 60$ ;EXIT THIS ROUTINE. 

oiee ; Local error message line printing routine. 

2166 012272 40$: PRINTX #EF8402,44$,R3,R2,R1 
012272 010146 MOV R1,-(SP) 
012274 010246 MOV R2,-(SP) 
012276 010346 MOV R3,-(SP) 
012300 016746 000022 MOV 44$,-(SP) 

04 012746 004676 MOV #EF 8402, -(SP) 

012310 012746 000005 MOV .- 
012314 010600 MOV SP,RO 
012316 104415 TRAP C$PNTX 
012320 062706 000014 ADD #14,SP 

2167 012324 000207 RTS PC ; 

2168 012326 000000 44$: -WORD 0 ;LOCAL STORAGE FOR ADDRESS OF SIGNAL NAME, 

2169 012330 60$: PASS ;RESTORE ALL THE GPRS TO THE PRES! °VED VALUES. 
012330 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 

2170 012332 ENDMSG 
012332 L10007: 


012332 104423 TRAP C$MSG 


eC NM. OSS’ wvwse=sns- 
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2 
2192 
2193 


2194 
0 
0 
2195 
01 


0 
2196 
0 


2197 
2198 


012334 
012334 


012422 
012422 
012422 


010146 


010246 
012746 
012746 
010600 
104415 
062706 


104423 


005013 
000002 


000006 


005075 
000002 


000006 


005147 
000002 


000006 


- ER9001 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE 


- ER9001 - 


EERE RRR EEE EERE REE EERE EERE REE EERE REE EERE EERE EEE EERE REEEEEEEEREEEEESE EERE EE ES 
This is an error reporting rage Ya hae reports an unexpected 


;* 
3* 


code which has been found in the DUT 


code, a Self-test code, or a Modem Status code. 


;* INPUTS: 


;* 
;* OUTPUTS: 


;* 
;* CALLING SEQUENCE: 


;* 
3* COMMENTS: 


3% 
. 

;* SUBORDINATE ROUTINES USED: None. 
EES i SSSI S TPP T TPP e rr Pierre rit tt titi ttt ttt tT TTT TTT TTT TTT TTTTTT TTT TTT TTTTTTT 


BGNMSG 


PRINTB 


PRINTX 


PRINTX 


ENDMSG 


Rl - Address of message to print first. 


R2 - Single byte code which has been read from the DUT. 
uber associated with the code. 


R4 - Line nu 


A messages is printed at the operator console. 


This code can be a BMP 


Include the label "ER9001" as the message pointer 
parameter in the Diag Super error report macro call. 


The message is printed as Basic and Extended error information. 


ER9001 


#EF9001,R1 


#EF 9002 ,R4 


#EF9003,R2 


ER9001:: 


sREPORT TYPE OF CODE FOUND. 


L10010: 


TRAP 


R1,-(SP) 
#EF 9001, - 
#e,-(SP) 
SP ,RO 
C$PNTB 


R4, - 


SEQ 0054 


(SP) 
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2 
2222 


2223 
2224 
2225 
2226 


0 
2227 
0 


2231 
2232 


012424 
012424 


012424 
012426 


012540 
012540 
012544 


ee ee er 


006203 
042702 


010246 
010146 
012746 
012746 
010600 
104414 
062706 


010246 
012746 


012746 
012746 


177400 


005257 
000003 


000010 


010672 
005176 
000003 


000010 


010646 


005176 
000003 


000010 


010646 
005226 


a a 


D5 


- ER9002 - 
.SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9002 - 
FEE EERE EERE EE EEE EERE EEE EERE EEE EEE EE RE EEE 
;* This is an error reporting subroutine which is intended for use in the 
;* tranmsission and reception tests. It reports the a of wer which 
3* has occurred when incorrect data is received from the DUT. This 
;* routine also reports the read and expected data values. 
;* 
;* INPUTS: Rl - Address of message to print first. 
;* R2 - Data byte read from the gS 
7% R3 - Line number multiplied “ e ‘ 
;* R4 - Expected data byte, bit 15 set if “NONE”. 
:* 
;* OUTPUTS: A messages is printed at the operator console. 
;* 
:* CALLING SEQUENCE: Include the label "ER9002” as the message pointer 
:* parameter in the Diag Super error report macro call. 
:* 
. COMMENTS : The message is printed as Basic and Extended error information. 
a SUBORDINATE ROUTINES USED: PRTLPR. 
Piitiit iit titi tttt tt ttt titi i titi tt ii titi titi titi ttt titi ti it itt ttt t titi titi titty 
BGNMSG ER9002 
ER9002: : 
ASR R3 ;CALCULATE THE LINE NUMBER. 
BIC #177400 ,R2 ;MASK OUT ALL BUT DATA IN READ CHAR. 
PRINTB #EF9006,R1,R3 ;PRINT THE FIRST LINE OF THE MESSAGE. 
MOV R3,-(SP) 
MOV R1,-(5°9) 
MOV #EF 9006, -( SP) 
MOV #3,-(SP) 
MOV SP ,RO 
TRAP CS$PN7B 
ADD #10,SP 
PRINTX #EF9004,#EM9010,R2 sPRINT ACTUAL DATA. 
MOV R2,-(SP) 
MOV #EM9010,-(SP) 
MOV #EF 9004, -( SP) 
MOV #3,-(SP) 
MOV SP ,RO 
TRAP CS$PNTX 
ADD #10,SP 
TST R4 ;CHECK FOR “NONE” CODE SET IN EXPECTED DATA. 
BMI 2s ;BRANCH TO PRINT “NONE” MESSAGE IF FLAG SET. 
PRINTX #EF9004, #EM9009,R4 ;PRINT EXPECTED DATA. 
MOV R4,-(SP) 
MOV #€M9009, - (SP) 
MOV #EF 9004, -( SP) 
MOV #3,-(SP) 
SP ,RO 
TRAP C$PNTX 
ADD #10,SP 
BR 60$ ;EXIT THIS ROUTINE. 
2s: PRINTX #E€F9005, #EM9009 ;PRINT MESSAGE INDICATING NO = DATA. 


#£€M9009, - (SP) 
MOV #EF 9005, - (SP) 


SEQ 0055 


eee eee ae aaa se ee — <= 
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| ore, ERROR REPORTING ROUTINE - ER9002 - 
| 012550 012746 000002 MOV 
012554 010600 MOV 
012556 10441 TRAP 
012560 062706 000006 ADD 
2233 012564 004767 002162 60$: JSR PC,PRTLPR ;PRINT CONTENTS OF THE LPR REGISTER. 
2234 012570 ENDMSG 
012570 L10011: 
012570 104423 TRAP 


SEQ 0056 
#2,-(SP) 
P,R 


SP ,RO 
C$PNTX 
#6 , SP 


C$MSG 


= 


8 


ee 
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ee ooo 


SEQ 0057 
| GLOBAL ERROR REPORTING ROUTINE - ER9101 - 

2236 .SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9101 - 

2237 FARA ARR IRR IRR IRR REE EEE EEE ERE REE EERE EEE EEE EE EEE 

2238 ;* This is @ general error reporting subroutine which reports a message 

2239 ;* which takes a single, 2 digit decimal argument after the end of an 

ay ;* ASCII message. 

:* 
2242 ;* INPUTS: Ri - Value to be printed after ne. as . decimal digits. 
aes ;* R2 - Address of message to print First 

;* 
ataa ;* OUTPUTS: A messages is printed at the operator console. 

;* 

2247 ;* CALLING SEQUENCE: Include the label "ER9101"” as the message pointer 

<> * parameter in the Diag Super error report macro call. 
;* 

tx i. COMMENTS: The message is printed as Basic error information. 

2252 * SUBORDINATE ROUTINES USED: None. 

th rttittitiititiitiitittittitititii titi ttiiiititiiiitiititiiiiititiiitiiitiiii? 

2255 012572 BGNMSG €ER9101 

os 012572 ER9101:: 

2257 012572 PRINTB #EF9006,R2,R1  ;REPORT THE STRING FOLLOWED BY THE NUMBER. 
012572 010146 MOV R1,-(SP) 
012574 010246 MOV R2,-(SP) 
012576 012746 005257 MOV #EF 9006, -(SP) 
012602 012746 000003 MOV #3,-(SP) 
012606 010600 MOV SP ,RO 
012610 104414 TRAP C$PNTB 

sone 012612 062706 000010 ADD #10,SP 

2259 012616 ENDMSG 
012616 L10012: 

012616 104423 TRAP C$MSG 


‘ 
ee ae 
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: 
| 
| 


0 
2281 
2282 


2283 
2284 


012620 
012620 
012620 
012620 


012624 
012624 
012626 
012632 
012636 
012640 
012642 
012646 
012652 
012656 
012660 
012662 
012666 
012670 


012672 
012676 
012700 
012704 
012706 
012710 
012712 
012716 
012716 
012722 
012726 
012730 


a ee wee ce 


004567 


010146 
012746 
012746 
010600 
104414 
062706 
012703 
012705 
012301 
012304 
004767 
020302 
103772 


020227 


012705 


012746 
012746 
010600 
104415 


171270 


004247 
000002 


000006 
002444 
011147 


000056 


002640 
000002 


011177 


005373 
000001 





G5 


SEQ 0058 
- ER9301 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9301 - 
Beeb adebbb db bnbe he ne tt tttti tit ttt iit iti ttt tt tt tet ete TTT TT Te Te Te Tt tt 


operator console. 


;* This is an error reporting subroutine which prints any BMP codes 

;* that are found in the BMP code queue, together with the the number of 
;* the test that was executing at the time the BMP code was logged. 

;* 

:* INPUTS: Rl - The address of the first message to be reported. 

:* R2 - The address of the next empty cell in the queue. 

;* 

;* OUTPUTS: The test number followed by the BMP code are printed at the 
* 

a‘ 

* 

* 


CALLING SEQUENCE: Include the label "ER9301" as the message pointer 
parameter in the Diag Super error report macro call. 


3;* 
:* COMMENTS: The message is printed as Basic error information. 


;* 
, 

;* SUBORDINATE ROUTINES USED: None. 

5 IRI RRR RRR IR RRR EERE E EERE E REAR EERE REESE ERE 


BGNMSG ER9301 


ER9301:: 
SAVE ;SAVE THE GPRS ON THE STACK. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
PRINTB #EFOS503,R1 ;REPORT UNEXPECTED BMP CODES FOUND. 
MOV #EFO503, -( SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #6, SP 
MOV #BMPCQB ,R3 ;GET THE START ADDRESS OF THE BMP CODE QUEUE. 
MOV #EM9302,R5 ;GET THE MESSAGE TO BE REPORTED. 
2s: MOV (R3)+,R1 ;GET THE NUMBER OF THE TEST THAT WAS EXECUTING. 
MOV (R3)+,R4 ;GET BMP CODE THAT WAS REPORTED OFF THE QUEUE. 
JSR PC,50$ ;GO REPORT THE BMP CODE. 
CMP R3,R2 ;CHECK IF ALL CODES HAVE BEEN REPORTED. 
BLO 2s ;IF IT IS NOT THE LAST BMP CODE THEN LOOP. 


3+ 

; Check if overflow has occurred. 

The conditions for overflow are: the pointer contains the address of the 
cont cell in the queue, and a bmp code has already been written into that 
cell. 


CMP nue ;CHECK IF THE POINTER IS AT THE LAST LOCATION. 


BNE sEXIT IF NOT AT THE LAST LOCATION. 

TST 2(R2) ;CHECK FOR A BMP CODE IN THE LAST CELL 
BEQ 60$ sEXIT IF NO OVERFLOW HAS OCCURED, CELL EMPTY. 
MOV (R3)+,R1 sGET THE TEST NUMBER OFF THE QUEUE. 

MOV (R3),R4 ;GET THE BMP CODE OFF THE QUEUE. 

MOV #EM9303,R5 ;SELECT THE MESSAGE TO BE REPORTED. 
PRINTX #EF9302 sREPORT OVERFLOW CONDITION. 


MOV #EF 9302, -( SP) 
MOV SP ,RO 
TRAP C$PNTX 


SO 


— 


ee -_— —_—- 


H5 
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SEQ 0059 
GLOBAL ERROR REPORTING ROUTINE - ER9301 - 

012732 062706 000004 ADD #4,SP 

2306 012736 004767 000002 JSR PC,50$ ;REPORT THE LAST BMP CODE PILACED ON THE QUEUE. 

cone 012742 000414 BR 60$ ;EXIT. 

2309 012744 50$: PRINTX #EF9301,R5,R1,R4 ;PRINT THE MESSAGE. 
012744 010446 MOV R4,-(SP) 
012746 010146 MOV R1,-(SP) 
012750 010546 MOV R5,-(SP) 
012752 012746 005315 MOV #EF9301,-(SP) 
012756 012746 000004 MOV #4,-( SP) 
012762 010600 MOV SP ,RO 
012764 104415 TRAP C$PNTX 
012766 062706 000012 ADD #12,SP 

2310 012772 000207 RTS PC ;RETURN. 

2311 012774 60$: PASS ;RESTORE THE GPR CONTENTS. 

19 012774 004736 JSR PC,a@(SP)+ ;RETURN TO PREGOS SUBRT. 

2313 012776 ENOMSG 
012776 L10013: 


012776 104423 TRAP C$MSG 


' 
| 
1 
' 
! 
| 
{ 

‘ 


oe a —_—_— —_ — 


I5 
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SEQ 0060 
| GLOBAL SUBROUTINES SECTION 

2315 .SBTTL GLOBAL SUBROUTINES SECTION 

2317 | KSKKLLKLLLKKK SKA LL KKK LALLA LL KKK LK SASK SKS LSA KKK SANs 

2319 ; SKL3.P11 

2321 | KEKKLKKKSKLK AKASAKA LLL LK LA LLL KKK LK KALA LAA A AA N ess 

2324 

2325 sie 

2326 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

2327 ; THAT ARE USED IN MORE THAN ONE TEST. 


2328 ~ t= 


j 
—) 
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| GLOBAL SUBROUTINE 


2358 013000 
013000 


2365 013004 
2366 013006 
2367 013010 
sacs 013012 


2375 013016 


2384 013042 
; 2385 013044 


004567 171110 


010400 


2 
016705 


000241 
006003 


001365 


167252 


167212 


ee — - -—— = + —_ 





SEQ 0061 
-SBTTL GLOBAL SUBROUTINE - ALTFLD - 
SOO RRR EERE EERE EERE ERE RER EAA RAAEAEAEEEEREAEREEERERERE EERE REE REE ES 
;* - Alter Device Register Fields Routine - 
;* This subroutine alters the specified field of the specified device 
;* register for the specified lines. This routine can be used to set 
:* or clear bits within selected fields of selected registers. 
;* Use examples: Set RX.BAUD.RATE fields on lines 3 and 6. 
;* Clear TX.DMA bits on all lines. 
;* 
;* INPUTS: Rl - Address of the registers to alter. 
:* R2 - Bit fields set to desired states. 
;* R3 - Bit map of lines for which to alter register. 
;* R4 - Mask of bits to alter (1 indicates change bit). 
;* CSRA - Contains the address of the device CSR. 
i* IESTAT - Saved states of the interrupt enable bits. 
;* 
;* OUTPUTS: DEVICE REGISTERS - Specified ses sit fields altered. 
;* CSR IND.ADR.REG field - Destroyed. 
;* 
;* CALLING SEQUENCE: JSR PC,ALTFLD 
;* 
;* COMMENTS: This routine reads the specified registers for all lines 
;* with numbers lower than the highes specified line. 
;* This routine does not read the CSR. 
;* 


;* SUBROUTINES CALLED: None. 
5 REET EERE EERE EERE ARERR EERE EERE EERE EEE EERE EERE EERE 


ALTFLO:: SAVE ; ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 


;* 


; Set up to loop for each line: 


; Prepare the word to be ORed into the weaiches contents. 
; Set up the word to write into the IND.ADR.REG field of the CSR. 
MOV R4,RO ;CALCULATE THE NEW CONTENTS OF THE 
COM RO ; REGISTER FIELDS WHICH ARE TO BE 
BIC RO,R2 ;_ALTERRED BY THIS ROUTINE. 
MOV IESTAT,RS ;SET UP TO WRITE IND.ADR.REG FIELD TO 0. 


+ 
; Loop once for each line, altering the specified field in the specified 
; register if the line has been selected for altering. 
; Exit the loop if no more lines to alter, or if we have altered the max 
; allowable number of lines (as specified by NUMLNS). 


CLC ;PREPARE FOR ROTATE, “TST RS” DOES THIS BELOW. 
2s: ROR R3 ;GET THE LINE SELECT BIT FOR THIS LINE. 
BCC 4 ;SKIP SETUP IF LINE IS NOT SELECTED. 
MOV R5,@CSRA sSET DUT CSR IND.ADR.REG FIELD TO THIS LINE. 
MOV (R1), ;GET THE PRESENT CONTENTS OF THE REG TO ALTER. 
BIC ’ ;CLEAR THE BIT FIELDS WE ARE TO ALTER. 
BIS R2,RO ;OR IN THE NEW STATES OF THE FIELDS. 
MOV RO,(R1) s;WRITE THE NEW REGISTER CONTENTS TO THE REG. 
4$; INC R5 ;SET LINE NUMBER TO THE NEXT LINE. 
TST R3 ;CHECK FOR UNHANDLED LINES, CLEAR CARRY FLAG. 
BNE 2$ ;LOOP IF SELECTED LINE(S) IS NOT HANDLED. 


ic ee o— — 


K5 
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| GLOBAL SUBROUTINE - ALTFLD - SEQ 0062 


| 2386 
2387 013046 60$: PASS ;RESTORE GPRS. 


013046 004736 JSR PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 
2388 013050 000207 RTS PC ;RETURN TO CALLING ROUTNE. 
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SEQ 0063 
| GLOBAL SUBROUTINE - ASLNTL - 
2390 .SBTTL GLOBAL SUBROUTINE - ASLNTL - 
2391 PeMetiiiitititittiittititiiiitititititititittiititiiititiiititititittit ttt??? 1 
2392 :* - Setup Associated Line Number Tables Routine - 
2393 ;* This routine sets up the two tables which are contain information 
2394 i* about the TX/RX line which is associated with a particular RX/TX 
2395 i* line. One table is a table of words which contains word offset 
2396 ;* values and the other table is a table of bytes which contains 
tad ;* line number values. 
;* 
2399 ;* INPUTS: LOPBCK - Storage for the type of loopback on the DUT. 
2400 ;* NUMLNS - Equated to the number of lines on the DUT. 
2401 ;* STGTRB - Label at base of staggered line association tbl. 
2402 ;* TXRLNB - Label at base of byte TX/RX line number table. 
2403 ;* TXRXLB - Label at base of word TX/RX line number table. 
esos ;* TXRXLE - Label at end of word TX/RX line number table. 
;* 
oor ;* OUTPUTS: TXRXL, TXRLN - Tables initialized for selected loopback. 
:* 
oe ;* CALLING SEQUENCE: JSR PC, ASLNTL 
;* 
2410 ;* COMMENTS: 
2411 ;* 
2412 ;* SUBORDINATE ROUTINES CALLED: None. 
2413 Pettitt ti iitittittitt itt itititt itt it tt ittitiititiit titi tiitiiiiiit itt ttt ttt ttt tt 
2414 
2415 013052 ASLNTL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
013052 004567 171036 JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
2416 013056 126727 167154 000002 CMPB LOPBCK, #2 ; TEST FOR STAGGERED LOOPBACK 
eth 013064 001411 BEQ 4$ ;GO SET UP STAGGERED TABLE IF STAGGERED LPBCK. 
+4 ; Set up the word table for non-staggered loopback. 
2421 013066 005005 ; CLR RS ;CLEAR THE LINE COUNTER 
2422 013070 010565 004004 2s: MOV RS, TXRXLBCRS) ;SET UP A WORD OF THE TABLE. 
2423 013074 005205 INC RS 
2424 013076 005205 INC RS ;SET LINE COUNTER TO NEXT LINE OFFSET. 
2425 013100 020527 000020 CMP RS, #2*NUMLNS ;TEST FOR ALL LINES DONE. 
2426 013104 002771 BLT 2$ LOGP UNTIL ALL LINES DONE. 
nH 013106 000411 BR 8$ ;G0 SET UP THE BYTE TABLE. 
ec ; Set up the word table for staggered loopback. 
2431 013110 012701 004064 4$: MOV #STGTRB,R1 ;SET UP THE SOURCE POINTER. 
2432 013114 012702 004004 MOV #TXRXLB,R2 ;SET ¥ THE gt eM POINTER. 
2433 013120 112122 6$: MOVB (R1)+,(R2)+ ;MOVE A BYTE INTO THE TABLE. 
2434 013122 105022 CLRB (R2)+ ;CLEAR THE UPPER BYTE OF WORD TABLE ENTRY. 
2435 013124 020227 004044 CMP R2, #TXRXLE ;COMPARE POINTER WITH END ADR OF TABLE. 
at | 013130 002773 BLT 6$ ;LOOP IF NOT AT END YET. 
ats ; Set up the byte table based on the word association table. 
2440 013132 012701 004004 8S: MOV #TXRXLB,R1 ;SET UP THE SOURCE POINTER. 
2441 013136 012702 004044 MOV #TXRLNB ,R2 ;SET UP THE DESTINATION POINTER. 
2442 013142 012103 10$: MOV (R1)+,R3 ;GET THE WORD OFFSET VALUE FROM WORD TABLE. 
2443 013144 006203 ASR R3 ;DIVIDE BY 2 TO GET LINE NUMBER ALUE. 
2444 013146 110322 MOVB R3,(R2)+ ;LOAD THE BYTE LINE NUMBER INTO TABLE. 
2445 013150 020127 004044 CMP R1,#TXRXLE ;COMPARE SOURCE POINTER WITH ADR OF TABLE END. 


_——-—— ee 
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| GLOBAL SUBROUTINE - ASLNTL - 
2446 013154 002772 BLT 
3447 
2448 013156 60$: PASS 
013156 004736 
2449 013160 000207 RTS 


10$ ;LOOP IF NOT AT END OF TABLE YET. 
sRESTORE GPRS. 
ec JSR PC,a(SP)+ sRETURN TO PREGOS SUBRT. 


SEQ 0064 
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2479 013162 
013162 
2480 013166 


2484 013172 
2487 013176 
2494 013222 


8 
2499 013224 
2500 013230 
2501 013232 


2506 013234 


GLOBAL SUBROUTINE 


004567 
005067 


012705 


003371 


005067 
000241 
000461 


012704 


170726 
000210 


000001 


000001 
167114 


167074 


002326 


167120 





-SBTTL GLOBAL SUBROUTINE - CALMSL - 

PeMeriiitiititiiii¢it tit titi iiiitititiiiiiiiitii¢ititiiiiiiiiiitititititi tt ttt 
ae - Calibrate Milli Second Loop count subroutine - 

;* This subroutine calibrates the timing 1 which is used in the MSLOOP 
ed routine. This subroutine calculates a value for the MSLCNT variable 
3* which is the number of software loops which takes 1 ms to execute in 
i* the MSLOOP routine. This routine calibrates the count by using the 

i* Line Time Clock (LTC), so if no LTC is available the default value for 
:* the delay count must be used. 

;* 

;* 

;* INPUTS: MSLCNT - Default 1 ms delay loop count value, or 

i* velue from previous calibration. 

;* MSTICK - Number of MS per LTC clock tick. 

i* TIMER1 - Timer counter changed by LTC interrupt service rtn. 

iH CLKHRZ - Number of LTC clicks per second (50 or 60). 

;* 

;* OUTPUTS: CARRY - Set if LTC is available, and new calibration performed. 
;* MSLCNT - New 1 ms delay loop count value if LTC available, or 
;* unchanged if no LTC is available. 

7* 

;* CALLING SEQUENCE: JSR PC,CALMSL 

;* 

;* COMMENTS: 


3;* 
;* SUBORDINATE ROUTINES CALLED: UNSDIV,OOPS. 
Fn EERE ESSERE EERE SER ERV SEES SES SRE ERE RES ESSE SE SESE EEE SES ESE EEE RESTS 


CALMSL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS,PREGOS ;CALL REGISTER SAVE SUBRT. 
CLR 62$ CLEAR THE 2ND TIME FLAG. 
;* 
; Synchronize with the LTC. 
s= 
2s: MOV #1,R5 ;SET OUTER LOOP COUNTER TO 1 L 


LOOP. 
; INCREASE THE VALUE LOADED INTO THIS COUNTER IF THE <#s 
;FOLLOWING 7% FAILS ON FUTURE, FASTER —_—, <ee 


CLR RO ;CLEAR THE ah FOR CLOCK INT COUNTE 
MOV #1, TIMER1 SSET UP COUNT OF 1 TO SYNCH WITH LTC. 
4$: TST TIMER1 ; CHECK oy COUNTER HAVING GONE TO ZERO. 

BEQ 6$ ;JUMP_OUT OF LOOP IF LTC HAS INTERRUPTED. 
INC RO ; COUNT THIS ITERATION OF THE INNER LOOP. 
BNE 4$ ;LOOP IF COUNTER HAS NOT TURNED OVER. 

DEC RS s;DECREMENT THE INNER LOOP COUNTER. 

BGT 4s sLOOP IF OUTER LOOP COUNT NOT UP. 


; If we got no LTC interrupt, indicate that there is no LTC available. 
; ; LTC must be flakey, or not really an LTC at all. 


CLR CLKHRZ ;CLEAR LTC Ants} WORD TO INDICATE NO LTC. 
CLC s INDICATE FAILURE FOR RE 
BR 60$ ;BYPASS THE FOLLOWING CALIBRATION PROCEDURES. 


3° 
; We are now synchronized with the LTC. 
; Set up for the calibration loop. 


6$: MOV @TIMER1 ,R4 sWILL TEST TIMER] IN THE LOOP BELOW. 


SEQ 0065 


a ee ee ee. 


-——. 
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2507 
2508 
2509 
sett 


wy 
vi 


013240 
013242 
013244 
013246 


013252 
3 


013310 


013336 


013340 


013374 


013376 
013376 


56 013400 


013402 
013404 


005 
012714 
016705 


000261 
004736 
000207 


000000 
000000 


000001 
167062 
090120 


001214 


167022 


_ 


166772 


003012 


001142 
166752 
000010 


- CALMSL - 


CLR R1 ;CLEAR THE OUTER LOOP COUNTE 
CLR R2 sINDICATE TO CHECK ALL BITS. OF TIMER1. 
CLR R3 ;INDICATE TO CHECK FOR TIMER1 CLEAR. 
MOV #1,(R4) ;LOAD TIMER1 WITH COUNT OF 1. 
8$: MOV MSLCNT ,RS ;LOAD MS 5 a rene 
10$: MOV (R4),RO ;GET THE TIMER1 VALUE. 
MOV RO,64$ ; SAVE WORD (LIKE IN THE REAL LOOP). 
BIC R2,RO sLEAVE ALL THE BITS. 
CMP RO,R3 ;COMPARE AGAINST ZERO. 
SEC ;SET CARRY IN CASE OF SUCCESS. 
BEQ l2¢ sEXIT LOOP IF TIMER1 HAS CLEARED. 
DEC RS : COUNT DOWN THE INSIDE MS LOOP COUNT. 
BNE 10$ LOOP IF MS NOT UP. 
DEC R1 ; DECREMENT THE MS TIME COUNT. 
BNE 8$ sKEEP LOOPING. 
JSR PC ,OOPS ;WE OVERFLOWED, SOMETHING IS WRONG, ABORT. 


;* 

; We have now have loop count information for one clock tick. 

; We have negative of number of outer loops in R1, each is MSLCNT inner loops. 
; We have the portion of the Toot outer loop not executed, in R5. 

; Now we calculate the total number of inner loops executed. 


i2$: NEG R1 ;GET NUMBER OF OUTER LOOPS. 
MOV MSLCNT,R2 ;GET THE NUMBER OF INNER LOOPS PER OUTER LOOP. 
MOV R2,R3 ;COPY NUMBER OF LOOPS FOR MULTIPLY 
SUB R5,R2 iCALC # OF INNER LOOPS DONE IN LAST OUTER LOOP 
MOV R2,R4 AND ADD TO ACCUMULATOR LSWORD. 
CLR RS SCLEAR ACCUMULATOR MSWORD. 
14$: DEC R1 ;CHECK Ri FOR O CONDITION 
BMI 16$ ; SKIP MULTIPLICATION IF ZERO 
ADD R3,R4 ;MULTIPLY NUMBER INNER 
ADC RS ; LOOPS PER OUTER LOOP BY 
BR 14$ sNUMBER OF OUTER LOOPS PERFORMED. 
; Divide the total number of inner loops by the number of MS per LTC tick. 
16$: MOV MSTICK,R1 :;# OF MS PER LTC TICK IS DIVISOR. 
MOV R4,R3 ;LSWORD OF LOOP COUNT IS LSWORD OF DIVIDEND. 
MOV R5S,R2 ;MSWORD OF LOOP COUNT IS MSWORD OF DIVIDEND 
JSR PC,UNSDIV ;DIVIDE NUMBER OF LOOPS BY MS PER LTC TICK. 
BCS 18$ ;BYPASS OOPS IF WE'RE OK. 
JSR PC,OOPS ;CLOCK ROUTINES ARE NOT LONG ENOUGH, OR BUG. 
18$: MOV R1,MSLCNT ;SET NEW VALUE FOR MS LOOP COUNT. 
COM 62$ ;SET THE 2ND ITERATION FLAGS IF iST ITERATION. 
BNE 2s ;BRANCH IF ONLY ONE ITERATION DONE. 
SEC ;SET THE SUCCESS FLAG FOR EXIT. 
60$: PASS ;RESTORE GPRS, 
JSR PC, ac SP )-+ ;RETURN TO ~ mg SUBRT. 
RTS PC ; CARRY - SUCCESS FLAG. get IF SUCCESS 
62$: -WORD 0O :2ND CALIBRATION ITERATION FLAGS. 
64$: -WORD 0 ;DUMMY WORD FOR STORAGE OF THE READ WORD. 
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SEQ 0067 
| GLOBAL SUBROUTINE - CHKBMP - 
2561 .SBTTL GLOBAL SUBROUTINE - CHKBMP - 
2562 PeMetiiittt tii ittt ttt tttitittittitittiiiiititiitiittitiiitititititi ttt ttt ttt tt 
2563 i* - CHECK IF CHARACTER IS A BMP CODE - 
2564 ;* This subroutine is used to check for BMP codes. 
2565 ;* If a BMP _code is detected, it will be saved on the queue to be reported 
cee i* later. The carry is used as a flag to indicate a code has been found. 
;* 
tas ;* INPUTS: R2 - Contains the data to be checked. 
;* 
2570 ;* OUTPUTS: - gig the message to be reported. 
2571 ;* RaRBLK - Contains the error reporting routine. 
Sarg 3* Carry bit is used to indicate a BMP code found, Carry set. 
;* 
cere 3* CALLING SEQUENCE: JSR PC, CHKBMP 
;* 
2576 ;* COMMENTS: 
2577 3;* 
2578 ;* SUBORDINATE ROUTINES CALLED: SAVBMP. 
care Fa RRR REE EE EEE EERE EAE EERE EEE EERE EERE EEE REE EEE EEE EEE EERE EEE EE EEE 
2581 013406 CHKBMP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
013406 004567 170502 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
2582 013412 012700 170301 MOV #170301,RO0 ;SET UP THE FLAGS OF A BMP CODE. 
2583 013416 040200 BIC R2,RO ;TRY TO CLEAR THE BMP CODE FLAGS. 
2584 013420 001011 BNE 2$ ;IF NOT A BMP CODE, EXIT WITH FAILURE. 
2585 013422 004767 002116 JSR PC, SAVBMP ; SAVE THE BMP CODE ON THE QUEUE. 
2586 013426 012701 006624 MOV #EM5303,R1 ;PASS THE MESSAGE TO BE REPORTED. 
2587 013432 012767 011662 170452 MOV #ER1603,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
2588 013440 000261 SEC ;PASS FLAG TO INDICATE SUCCESS, BMP CODE FOUND. 
2589 013442 000401 BR 60$ ;EXIT. 
2590 013444 000241 2$: CLE ;PASS FLAG TO aot" FAILURE. 
2591 013446 60$: PASS R1 ; RESTORE GPRS, EXCEPT 
013446 010166 000004 MOV Ri, RiSLOTC(SP) ;PUT R1 IN STACK SLOT. 
013452 004736 JSR PC. a(SP )+ RETURN TO PREGOS SUBRT. 
2592 Ri - CONTAINS THE ADDRESS OF ERROR MESSAGE. 
2593 ; CARRY BIT - SET INDICATES SUCCESS. 
2594 013454 000207 RTS PC 


a 


6 eee ee ne ee a ee ee ee 
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013456 

013456 004567 
013462 005067 
013466 011011 
013470 005767 
013474 000261 
013476 001401 
013500 000241 
013502 

013502 004736 
013504 000207 


170432 
166624 


166616 


- CKTRAP - 
-SBTTL GLOBAL SUBROUTINE 


SEQ 0068 


- CKTRAP - 


5 EERE ERE ERE ERE REE A EERE REE EERE EERE EERE EEE ER ER EEE EERE EE EREREEEREEE 


;* Check Trap Routine - 

This subroutine is used to check for a bus time-out trap (004 trap) 
which is caused by an access to a non-existent memory or I/0 location. 
If the trap does not occur, this routine returns 6 success indication. 


INPUTS: RO - Source address for move. 
Ri - Destination address for move. 
(RO) - Source for the move. 


OUTPUTS: (R1) - Written to the contents of (RO). 
Set on return if no 004 trap detected. 


ee © oe 
+ *# & & 


= © + © ee @e + oe © Ge Se Ge © 
eeeeeHeHRHRHH EH HE HF 


vere? iy & 
nz 


TP4FLG - ero if trap occurred, cleared otherwise. 
CALLING SEQUENCE: JSR PC,CKTRAP 
COMMENTS: If this subroutine causes a trap, either the address which 


is labeled ADRPTR will be the trap PC address on the stack. 


;* SUBORDINATE ROUTINES CALLED: None. 
5 REE EEE EER ERE ERE EERE EEE EERE EERE EEE EEE EERE EERE EEE EEE EEE 


CKTRAP:: SAVE 
JSR 
CLR TP4FLG 
MOV CRO), CR1) 
eet TP4FLG 


BEQ 60$ 
CLC 
60$: PASS 
JSR 
RTS PC 


;SAVE CONTENTS OF GPRS RO THRU RS. 
RS,PREGOS ;CALL REGISTER SAVE SUBRT. 

;CLEAR THE 004 TRAP FLAGS. 

;PERFORM THE MOVE IN QUESTION. 

;CHECK FOR ot OF TRAP. 

;INDICATE SUCCES 

;EXIT WITH SUCCESS IF TRAP DID NOT OCCUR. 

; INDICATE FAILURE. 

;RESTORE GPRS. 
PC,a(SP)-+ sRETURN TO PREGOS SUBRT. 


ag Sn AS <r D 


E6 
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013506 
013506 


013512 
013516 


013520 
013524 
013524 
013524 


013526 


e™ 


004567 


004767 
103002 


004767 


004736 
000207 


170402 


001654 


001310 


- CLNRST - 


.SBTTL GLOBAL SUBROUTINE - CLNRST - 

itiitiiiiiiititttt ttt iti tii titiiiiiiitiitttittttittiiiiiiiiiiittitttt ttt ttt tty 
- Clean Reset of the Device Under Test - 

This subroutine is used to reset the DUT to a known state. 

The DUT's self-test is skipped,and the fifo is purged of any error 

codes, etc. 

If the reset does not succesfully complete, then the carry bit is 

passed back to the calling routine (clear). 


INPUTS: CSRA - Contains the address of the CSR 
TXBFCA - Contains address of DUT DMA Buffer Count register. 
ERRNBR - Error number for pros inte error report. 
ERRTBL- ERRTYP,ERNBR,and ERRMSG set up correctly. 


OUTPUTS: The DUT performs its reset function into a known state. 
CARRY - Clear indicates the test is to be aborted. 
ERRBLK - value wi be destroyed. 
IESTAT - TX and RX interrupt flags are cleared. 
TX and RX interrupt enable bits in the DUT's CSR are cleared. 


CALLING SEQUENCE: JSR PC,CLNRST 


COMMENTS: This subroutine can report errors with numbers ERRNBR. 
This routine does not destroy the value of ERRNBR. 


;* SUBORDINATE ROUTINES CALLED: DELAY,MSLGET,PUFIFO,RESETT. 
5 ERE E EERE E EERE EERE EERE EEE REESE ARES EEE EEE EEE EEE EES 


CLNRST:: SAVE ;SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 


eeKHEHRHHHHRHRHRHRHHRHHRH HEHE HH HH 


=e oe @e ee Se es we Se ee ee we ae SF Se oe oe Se es oe oe oe 


; Reset the DUT. 
; This routine reports errors with numbers from ERRNBR thru ERRNBR:+2. 


: JSR PC, ,RESETT sRESET THE DUT TO A KNOWN STATE. 


BCC 60$ ;EXIT ROUTINE WITH ABORT TEST INDICATOR. 
3?¢ 
; Purge the FIFO of error codes, save any BMP codes found. 
, JSR PC,PUFIFO ;PURGE THE FIFO. 
60$: ;EXIT THE TEST USING RESETT OR PUFIFO STATUS. 
PASS ;RESTORE GPRS, PASS THE FOLLOWING INTACT 
JSR PC, aC SP )+ RETURN TO PREGOS SUBRT. 


;CARRY BIT: IF CLEAR, THEN ABORT THE TEST. 
RTS PC 


SEQ 0069 


F6 
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2690 013530 

013530 
2691 013534 
2692 013540 
2693 013542 
2694 013544 
2695 013546 

013546 
2696 013550 


004567 170360 
012701 000020 
005020 
005301 
001375 


004736 
000207 


- CLR1I6W - 
-SBTTL GLOBAL SUBROUTINE - CLR1I6W - 
eM ttiiititititittittitititiiiiiiiititiititiitiiititititiiiiiiiitititt¢ittt ttt) 
i* - Clear Sixteen Words Routine - 
;* This subroutine clears 16 words starting with the specified word. 
;* 
;* INPUTS: RO - Address of the first word to clear. 
;* 
;* OUTPUTS: (RO) to (RO+15) - 16 words of memory are cleared to 0. 
;* 
;* CALLING SEQUENCE: JSR PC,CLR16W 
3;* 
;* COMMENTS: 


;* 

° 

;* SUBORDINATE ROUTINES CALLED: None. 

3 es IIR RRR REE EE EEE EE EE EE 


CLR1I6W:: SAVE type CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 

MOV #16.,R1 ;SET THE LOOP COUNTER TO 16. 
2s: CLR (RO)+ ;CLEAR A WORD OF MEMORY. 

DEC Ri ;COUNT THIS LOOP 

BNE 2s ;LOOP IF NOT 16 WORD CLEARED. 
60$: PASS ;RESTORE GPRS. 

ars ec JSR PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 


SEQ 0070 
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2746 013642 000207 a RTS PC ; CARRY - SUCCESS FLAG (SET IF SUCCESS). 


SEQ 0071 
| GLOBAL SUBROUTINE - CMPMST - 
2698 .SBTTL GLOBAL SUBROUTINE - CMPMST - 
2699 Petit ttt titi ttt t tii tt titi titi titi ttt tt ttttiit titi tttt ttt ttt ttt ttt tt ttt? ttt tt ae 
2700 i* - Compare Modem Status Routine - 
2701 ;* This routine is used to compare the present modem status against the 
2702 i* modem status which is stored in the modem status srerrgr table. It 
eros :* ignores the states of the specified signals on a specified line. 
;* 
2705 ;* INPUTS: Rl - Line number of specified line. 
2706 ;* R2 - Bit map of bits to ignore on specified line. 
2707 ;* CSRA - Contains the address of the DUT CSR. 
2708 ;* NUMLNS - Equated to the number of lines on the DUT. 
2709 7% STATA - Contains the address of the DUT STAT register. 
2710 3* STSTB - Label at base of STAT storage table. 
aris 7* TXRLNB - Label at base of TX/RX line number association table. 
;* 
aie ;* OUTPUTS: CARRY - Success flag (Set if no discrepancies were found). 
:* 
ora ;* CALLING SEQUENCE: JSR PC,CMPMST 
;* 
2717 ;* COMMENTS: 
2718 :* 
2719 ;* SUBORDINATE ROUTINES CALLED: None. 
2720 Pettit tt ttt ttt titi iti tii ittitit ttt ttt ttt itt ttt titi ittttitttttt ttt ttt ttt ttt ttt 
2721 
2722 013552 CMPMST:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
013552 004567 170336 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
2723 013556 005003 CLR R3 ;CLEAR THE LINE COUNTER 
2724 013560 012704 002644 MOV #STSTB,R4 ;SET UP STAT STORAGE POINTER TO BASE OF TABLE. 
2725 013564 010377 166452 2s: MOV R3,9CSRA ;SET UP THE CSR IND.ADR.REG FIELD. 
2726 013570 017700 166454 MCV ASTATA,RO ;GET THE CONTENTS OF THIS LINE'S STAT REGISTER. 
2727 013574 011405 MOV (R4),R5 ;GET THE PREVIOUS CONTENTS FROM STORAGE. 
2728 013576 040005 BIC RO,RS5 
2729 013600 042400 BIC (R4)+,RO 
2730 013602 050005 BIS RO,RS ;XOR PRESENT AND STORED STAT VALUES. 
2731 013604 012700 043777 MOV #43777 ,RO ;PREPARE TO MASK OUT UNUSED BITS. 
2732 013610 120301 CMPB) = R3,R1 ;TEST FOR THIS BEING SPECIFIED LINE. 
2733 013612 001001 BNE 10$ ;DON'T MASK OUT SPECIFIED BITS IF IT IS NOT. 
2734 013614 050200 BIS R2,RO ;MASK OUT SPECIFIED BITS. 
2735 013616 040005 10$: BIC RO,RS ;GET BIT MAP OF UNDESIRED CHANGES. 
2736 013620 001006 BNE 50$ ;EXIT WITH FAILUR® IF CHANGES OCCURRED. 
2737 013622 005203 INC R3 ;SELECT NEXT LINE. 
2738 013624 020327 000010 CMP R3, #NUMLNS ;ALL LINES DONE? 
2739 013630 002755 BLT 2s ;LOOP IF NOT ALL LINES DONE. 
2740 013632 000261 SEC ; INDICATE SUCCESS. 
Sree 013634 000401 BR 60$ ;EXIT THIS ROUTINE WITH SUCCESS. 
Lins 013636 000241 50$: CLC ; INDICATE FAILURE. 
2745 013640 60$: PASS ;RESTORE GPRS. 
013640 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
i 
‘ 


; 
mE Ce eee 


er a = ee + 


H6 
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SEQ 0072 
; GLOBAL SUBROUTINE - CONMAP - 
2748 .SBTTL GLOBAL SUBROUTINE - CONMAP - 
2749 WeMeTiIttttititt tiie ttt ttt tit tt tit itititit ttt ttt tt ttt tt ttt titi ttt t titi ttt ttt tty 
2750 ;* - Convert Line bit map. 
2751 ;* This subrouitne is used to convert a bit map passed to it , into 
2752 ;* another line bit map that is based upon the associated TX/RX line 
te ;* number/offset table. 
;* 
2755 ;* INPUTS: R5 - Contains the line bit map to be transformed. 
cra ;* TXRXLB - Base address of associated TX/RX line number table. 
;* 
ies ;* OUTPUTS: RS - Contains an assosciated line bit map. 
;* 
ori ;* CALLING SEQUENCE: JSR PC ,CONMAP 
;* 
2762 ;* COMMENTS: The TX/RX association table must be initialised before this 
2763 :* routine is called. 
2764 ;* 
2765 ;* SUBORDINATE ROUTINES CALLED: NONE. 
2766 Been Tit ttt titi ttttttititii ttt t ttt ttt ttt tt ttt ttt titi itt tti tit ttt ttt ttt ttt tt ttt tt 
2767 
2768 013644 CONMAP : : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
013644 004567 170244 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
2769 013650 012702 004004 MOV #TXRXLB,R2 ;GET THE BASE ADDRESS OF THE LINE ASSOC TABLE. 
2770 013654 010503 MOV R5,R3 ;COPY THE BIT MAP TO BE TRANSFORMED. 
2771 013656 012704 000010 MOV #NUMLNS , R4 ;SET MAX LINE COUNTER. 
2772 013662 005005 CLR RS ;CLEAR ASSOCIATED LINE BIT MAP. 
2773 013664 006203 2s: ASR R3 ;SHIFT ACTLNS BIT MAP INT BOOLEAN REGISTER. 
2774 013666 103005 BCC 4$ ;SKIP SETTING ASSOCIATED LINE NUMBER BIT MAP. 
2775 013670 011201 MOV (R2),R1 ;GET ASSOCIATED LINE NUMBER OFFSET FROM TABLE. 
2776 013672 006201 ASR ;SHIFT RIGHT TO GET LINE NUMB FROM OFFSET. 
2777 013674 004767 000414 JSR PC,LINBIT ;GENERATE AN SINGLE BIT MAP FOR THIS LINE. 
2778 013700 050005 BIS RO,RS ;SET BIT FOR THIS LINE IN ASSOCIATED BIT MAP. 
2779 013702 005722 4$: TST (R2)+ ; INCREMENT ADDRESS FOR THE NEXT LINE NUMBER. 
2780 013704 005304 DEC R4 ;DECREMENT LINE COUNT. 
2781 013706 001366 BNE 2$ ;LOOP IF NOT DONE. 
2782 013710 60$: PASS RS ;RESTORE GPRS, EXCEPT 
013710 010566 000014 MOV R5,RSSLOT(SP) ;PUT RS IN STACK SLOT. 
013714 004736 JSR PC,a(SP)-+ RETURN TO PREGOS SUBRT. 
2783 3R5 - CONTAINS THE ASSOCIATED LINE BIT MAP. 
2784 013716 000207 RTS PC 
| 


eK LS LL 


ee ee ee 


16 
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SEQ 0073 
| GLOBAL SUBROUTINE - DELAY - 
2786 .SBTTL GLOBAL SUBROUTINE - DELAY - 
2787 Pitti ti ittitit itt titi itt i tit titi ttt tititit ttt titi titi ttt ttt itt t ttt tT ttt TTT TTT et 
2788 * 3 - DELAY SUBROUTINE - 
tha ;* This subroutine is used to delay a variable number of milli-seconds. 
3 * 
2791 ;* INPUTS: R4 - Contains the number of ms to delay. 
2792 3 MSLCNT. 
2793 ;* 
2794 ;* OUTPUTS: None. 
2795 :* 
tee 4 ;* CALLING SEQUENCE: JSR PC,DELAY 
;* 
2798 ;* COMMENTS: If no hardware clock interrupts are occuring, control-Cs will 
Aas $ not be honored for the duration of the delay. 
2801 _ SUBORDINATE ROUTINES CALLED: None. 
gece Pitti tt itt titi tit ttt ttttt itt ttt ti ttt titi tittt titi titi ttt ttt titi ttt tt ttt tt ttt) 
2804 013720 DELAY:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
013720 004567 170170 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
2805 013724 010401 MOV R4,R1 ;PASS NUMBER OF MS DELAY AS TIME-OUT VALUE. 
2806 013726 012702 177777 MOV #-1,R2 ;TELL MSLOOP ROUTINE TO CHECK ALL BITS. 
2807 013732 005003 CLR R3 ;TELL MSLOOP-RTN TO CHECK FOR ALL BITS CLEAR. 
2808 013734 012704 013756 MOV #62$ ,R4 ;TELL MSLOOP TO CHECK DUMMY NON-ZERO WORD. 
2809 013740 004767 000544 JSR PC ,MSLOOP ;DELAY THE REQUESTED # OF MS. 
2810 013744 103002 BCC 60$ ;EXIT ROUTINE IF WE TIMED-OUT.]J 
2811 013746 004767 000552 JSR PC,OOPS ;IF NO TIME-OUT, BAD PROGRAM OR HOST MACHINE. 
2812 013752 60$: PASS ;RESTORE GPRS. 
013752 004736 JSR PC,a@(SP)-+ ;RETURN TO PREGOS SUBRT. 
gets 013754 000207 RTS PC 
2815 013756 177777 62$: . WORD -1 ;DUMMY, NON-ZERO WORD. 
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— ee 
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2848 013760 

013760 
2849 013764 
2850 013770 
2851 013774 


004567 
012704 
005767 
001427 


2856 013776 010205 
2857 014000 
2858 014004 
2859 014006 
2860 014010 
2861 014012 
2862 014016 
2863 014022 
2864 014024 
2865 014030 
2866 014032 
2867 014034 
2868 014036 
2869 014040 
2870 014044 
2871 014046 
2872 014050 


170130 
000200 
166352 


000005 


177761 
166326 


000006 


160000 


000200 


- DODMA - 


-SBTTL GLOBAL SUBROUTINE 
5 RRR RRR RR RR RRR REE EERE ERE ERE EERE EERE EEE EE EE ERE EEE 


- Initiate DMA Transmission Routine - 


HHHRHRHHHHRHHHRHHHHRHHRHHRH HHH HE HH 


INPUTS: 


;* OUTPUTS: 


3* C 
;* COMMENTS: 


ALLING SEQUENCE: 


JO 


- DODMA - 


This routine writes the DMA parameter to the specified device and 
initiates the DMA transmission. 


Ri - Line number on which to initiate the DMA. 

R2 - Start address of the DMA buffer (16 bit virtual). 

R3 - Character count of the DMA buffer. 

CSRA - Contains address of the DUT CSR. 

IESTAT - Storage for states of the interrupt enable bits. 


MMENAB - Memmor 


management flag (0 if MEM MGT not enabled). 


HOST MEM MGT PAR REGISTERS - If MEM MGT is in use. 

TXAD1A - Contains address of DMA TX buffer address reg #1. 
TXAD2A - Contains address of DMA TX buffer address reg #2. 
TXBFCA - Contains address of DMA character count register. 


CARRY - Success fla 


(set if DMA_START found clear). 


DUT TBUFFADi - LS 16 bits of DMA buffer address (initialized). 
DUT TBUFFAD2 - MS 6 bits of DMA buffer address (initialized), 


DMA_START bit set. 


DUT TBUFFCT - DMA buffer character count (initialized). 


JSR 


PC ,DODMA 


This routine determines if Memor 


Management is being used 


and sets up the full 22 bit physical address if necessary. 


;* SUBORDINATE ROUTINES CALLED: None. 
Peri iriri tripe rire rite r rire rir r ttre rrr rrr rrr rrr rrr ri ri rr iri ir iri its 


DODMA:: SAVE 


MOV 
TST 
BEQ 


Re 


; Memmory management is in use. 


JSR 


#200 ,R4 
MMENAB 
6$ 


;SAVE CONTENTS OF GPRS RO THRU RS. 


RS,PREGOS ;CALL_REGISTER SAVE SUBRT. 


;PREPARE TO CLEAR UPPER 6 BITS OF DMA BUFF ADR. 
;CHECK FOR MEMORY MANAGEMENT IN USE. 
;GOTO SET UP DEVICE IF MEM MGT NOT IN USE. 


; Construct 22 bit physical address from the 16 bit virtual address. 


2s: ROL 


4$: ASL 


“R2,R5 


#5,RO 

R5 

RO 

2$ 

#177761,R5 
R5 


4 
a+ li 


R4 
#200 ,R4 


;STRIP THE MOST SIGNIFICANT 3 BITS OF THE 
DMA BUFFER VIRTUAL ADDRESS AND MULTIPLY 
THEIR VALUE BY TWO TO GET AN OFFSET INTO 
THE TABLE OF MEMMORY MANAGEMENT PAGE 
ADDRESS REGISTERS (PAR). 


;ADD IN THE BASE VALUE OF THE MM PAR REGISTERS. 
;GET THE 16 BIT PHYSICAL ADDRESS BLOCK COUNT. 
;SHIFT UPPER 6 BITS OF THE PHYSICAL ADDRESS 

; BLOCK COUNT (GOTTEN FROM THE PROPER PAR) 

; INTO THE LS 6 BITS OF THE WORD TO WRITE 

; INTO THE DUT TBUFFAD2 REGISTER. 


;ADD THE 13 BIT DISPLACEMENT FIELD FROM VIRTUAL 
; ADR TO THE SHIFTED BLOCK NUMBER FROM THE 

; _MEMMORY MANAGEMENT PAR. 

;SET THE DMA_START BIT IN WORD FOR TBUFFAD2. 


ee ee oe ee oe 


SEQ 0074 


— -+- ee ee eee 


IK6 
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SEQ 0075 
GLOBAL SUBROUTINE - DODMA - 
2873 ;+ 
2874 ; Write the DMA parameters out to the DUT DMA registers. 
2875 ; Disable interrets- 
2876 ; Set up DUT CSR IND.ADR.REG field. 
2877 ; Write the DMA transmit character count. 
2878 ; Write the least significant 16 bits of the DMA buffer start address. 
2879 ; Write the most significant 6 bits of the address, 
tay : setting the DMA_START bit, and initiating the OMA transmission. 
2882 014054 é$: GETPRI RS ;GET THE PRESENT PROCESSOR PRIORITY. 
014054 104440 TRAP C$GPRI 
014056 010005 MOV RO,RS 
2883 014060 SETPRI #PRIO7 ;DISABLE ALL HARDWARE INTERRUPTS. 
014060 012700 000340 MOV #PRIO7,RO 
014064 104441 TRAP C$SPRI 
2884 014066 056701 166176 BIS IESTAT,R1 ;PREPARE FOR SETUP OF LINE NUMBER IN DUT CSR. 
2885 014072 010177 166144 MOV R1i,@CSRA ;SET UP THE DUT CSR IND.ADR.REG FIELD. 
2886 014076 105777 166154 TSTB a@TXAD2A ;TEST THE DUT DMA_START BIT. 
2887 014102 000241 CLC ; INDICATE FAILURE IN CASE DMA.HO BIT IS SET. 
2888 014104 100411 BMI 60$ ;EXIT WITH FAILURE IF DMA.HO BIT IS SET. 
2889 014106 010377 166146 MOV R3,aTXBFCA s;WRITE THE DMA CHARACTER COUNT. 
2890 014112 010277 166136 MOV R2,@TXAD1A ;WRITE THE LS 16 BITS OF BUFFER ADDRESS. 
2891 014116 110477 166134 MOVB R4,a@TXAD2A ;WRITE MS 6 BITS OF ADR AND START DMA TX. 
2892 014122 SETPRI RS ;RESTORE THE PROCESSOR PRIORITY. 
014122 010500 MOV R5,RO 
014124 104441 TRAP C$SPRI 
gent 014126 000261 SEC ; INDICATE SUCCESS. 
2895 014130 60$: PASS ;RESTORE GrRS, 
014130 004736 JSR PC,a@(SP)+ RETURN TO PREGOS SUBRT. 


2896 014132 000207 RTS PC ; CARRY - SUCCESS FLAG (set IF SUCCESS). 


j 
~<d 


014134 
014134 


0 
014140 


014210 


014212 


ee ee ee ee 


004567 


005001 


000261 


010166 
010566 
004736 


000207 


167754 


000010 
166062 
000001 


C00004 
000014 


- FINACT - 
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-SBTTL GLOBAL SUBROUTINE 
5 Ot REE EEE EERE EERE E EERE REET REE RARER ER AR REESE EEE EEE REE EEE 


- FIND FIRST ACTIVE LINE - 
This subroutine calculates the number of the first active line that 
is found in the active line bit map ACTLNS. 


* 


Para aa arararars 


;* 


;* 


INPUTS: 
OUTPUTS: 


;* CALLING SEQUENCE: 


COMMENTS: 


- FINACT - 


ACTLNS - Contains the active line bit map. 


Rl - Contains the number of the first active line. 
RS - Contains the bit map representation of the active line. 
Carry set indicates success. 


JSR 


PC,FINACT 


;* 
;* SUBORDINATE ROUTINES CALLED: NONE. 
Sa ERE EAE KEKE EAE EERE EKA EREREREREAREE EEE REE EEEEEEESEEREEE EEE 


FINACT:: 


2s: 


4$: 


60$: 


SAVE 


JSR 


;SAVE CONTENTS OF GPRS RO THRU RS. 
R5,PREGOS ;CALL REGISTER SAVE SUBRT. 


7? 
; Find an active line on which to perform the test. 


RTS 


R1 
#NUMLNS , R3 
hee 


PC 


;CLEAR THE LINE NUMBER COUNTER. 
;GET MAX LINE NUMBER 

;GET THE ACTIVE LINE BIT MAP. 

;SET UP A LINE BIT MASK 

;LOOK FOR AN ACTIVE LINE. 

;BRANCH TO BEGIN TEST IF A LINE HAS BEEN FOUND. 
;SHIFT THE BIT MASK FOR THE NEXT LINE. 
sINCREMENT THE LINE NUMBER COUNTER. 

;CHECK IF ALL LINES HAVE BEEN TRIED. 

;LOOP TO TRY THE NEXT LINE. 

;CLEAR CARRY BIT, NO ACTIVE LINE FOUND. 

;EXIT WITH FAILURE. 

;SET CARRY, SUCCESS. 


s;RESTORE GPRS, EXCEPT 


R1,R1ISLOT(SP) 

RS, ROL OTC SP? sPUT RS IN STACK SLOT. 
PC,acsP ;RETURN TO PREGOS SUBRT. 
:Ri - CONTAINS THE NUMBER OF FIRST ACTIVE LINE. 
:RS_- CONTAINS THE BIT MAP OF THE ACTIVE LINE. 

;CARRY - SET INDICATES SUCCESS. 


sPUT R1 IN STACK SLOT. 


SEQ 0076 


me ee 


M6 
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014214 
014214 


1 
014220 


014232 
014236 


014240 
014240 
014242 


GLOBAL SUBROUTINE 


004567 
012702 
005003 
103773 


004736 
000207 


167674 
002704 


003304 


- INDATP - 


-SBTTL GLOBAL SUBROUTINE - INDATP - 

OUP TIT iii it iti¢giiittititiiiiiiiiiiiiiiiiitiiiiiiiiitiiitittitiitiit tt ttt tt ttt 
:* - INITIALISE DATA PATTERN - 

x This subroutine is used to initialise an incremental byte data pattern 
ot in the general buffer area. 

;* The data pattern will be sequential from 0 to 255 (decimal). 

;* 

* 


;* INPUTS: BUFBAS - Address of the start of the general buffer area. 
;* BUFMID - Address of the 255 th location. 


;* 

;* OUTPUTS: The first 255 locations of the general buffer area contain data 
7* 

;* CALLING SEQUENCE: JSR PC, INIDATP 

;* 

3* COMMENTS: 


;* 
, 

;* SUBORDINATE ROUTINES CALLED: NONE. 

Fo RRR REAR EERE ERE E EERE EERE ERE E EERE ERE E EERE EEE EEE EEE EEE EERO E EE EE 


INDATP:: SAVE tg CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV #BUFBAS ,R2 sINITIALIZE THE DATA PATTERN IN THE GENERAL 
CLR R3 i DATA BUFFER TO A 256 BYTE PATTERN. 
2s: MOVB R3,(R2)+ 
INC R3 ;SELECT THE NEXT CHARACTER. 
CMP R2, #BUFMID ;CHECK IF WE HAVE 256 DATA PATTERNS. 
BLO 2$ i 
60$: PASS sRESTORE GPRS. 


JSR PC, a(SP )+ 
RTS PC 


sRETURN TO PREGOS SUBRT. 


= 


ee 
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2993 014244 
014244 


8 
2999 014250 


3012 014310 
014310 
3013 014312 


004567 


012702 
005003 


103763 


004736 
000207 


167644 


002704 


000021 


000023 


003304 


- INDTPX - 


SEQ 0078 
.SBTTL GLOBAL SUBROUTINE - INDTPX - 
pee seeesssorososecscesssosososesesesosssosoossseseseesesoseseesesosossossseteS 
;* - INITIALISE DATA PATTERN WITHOUT XON OR XOFF 
;* This subroutine is used to initialise an incremental byte data pattern 
3% in the general buffer oy 
i* The data pattern will be from 0 to 255, but wll exclude the following 
i* two characters; (ASCII “Sci. *0c3) XON AND XOFF. This will cause the 
3* last two data characters to be the seme as the first two. 
3;* 
;* INPUTS: BUFBAS - Address of the start of the general buffer area. 
:* BUFMID - Address of the 255 th location. 
3;* 
;* OUTPUTS: The first 255 locations of the general buffer area contain data 
;* 
;* CALLING SEQUENCE: JSR PC, INDTPX 
;* 
;* COMMENTS: 


;* 
;* SUBORDINATE ROUTINES CALLED: NONE. 
Fr SESSA EESE EERE SEES ESSE SESE EERE EREAERSESSSESESEE EES EESESEAEEES 


INDTPX:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 


;¢ 

:; Initialize the 256 — data pattern. 

; Ensure the data pattern is free from XON's or XOFF's to prevent errors. 

; Note: the first two characters and the last two characters will be the same. 


MOV #BUFBAS ,R2 sINITIALIZE THE DATA PATTERN IN THE GENERAL 
CLR R3 . DATA BUFFER TO A 256 BYTE PATTERN. 
2$: MOVB § R3,(R2)+ 
INCB R3 ;SELECT THE NEXT CHARACTER. 
CMPB = #21,,R3 ;CHECK FOR AN XON CHARACTER. 
BNE 43 ;BRANCH IF CHAR NOT AN XON. 
INCB = R3 sFORCE THE NEXT CHARACTER. 
4$: CMPB = #23,,R3 sCHECK FOR AN XOFF CHARACTER. 
BNE 6$ a oot IF NOT AN i od CHARACTER. 
INCB R3 FORCE THE NEXT CHARACTER. 
6$: CMP R2, #BUFMID ; CHECK IF WE HAVE 256 DATA PATTERNS. 
BLO 2$ ; 
60$: PASS sRESTORE GPRS. 
ars ec JSR PC, @(SP)+ sRETURN TO PREGOS SUBRT. 


ee me ce ee ee 


Peres ion te B7 
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SEQ 0079 
GLOBAL SUBROUTINE - LINBIT - 
3015 .SBTTL GLOBAL SUBROUTINE - LINBIT - 
3016 oo CREE ERA REE REREER EEE RERER EE EREEEREE EEE EEERE SEDER SEER REESE EERE EERE EEE ES 
3017 :* - Line Number to Bit Map conversion subroutine - 
3018 :* This subroutine is used to generate a bit av Cone bit of 16 set) 
3019 i* based on a line number ae 1 to 16). the LS 4 bits of the 
3020 3* line number word are used, the 
sess 3* MSBytes of DUT CSRs can be passed to this routine without error). 
;* 
3023 ;* INPUTS: Rl - Line number os © LS 4 bits used, others disregarded). 
soSs ;* BITTBL - Base label o 16 word bit table. 
3% 
3026 3* OUTPUTS: RO - Bit_map, bit corresponding to line number is set: 
ond i* If line number is 3, then bit3 is set, etc. 
3% 
os 34 3* CALLING SEQUENCE: JSR PC,LINBIT 
;* 
3031 3* COMMENTS: No checking is performed to verify that the line number is 
3032 ;* a legal line number for the DUT Cie - less than NUMLNS). 
3033 :* NOTE: The line number is not destroyed of altered, so this 
ta ;* routine can be used easily in loops. 
3% 
3036 ;* SUBORDINATE ROUTINES CALLED: None. 
3037 Weeririiitiitiititiititt iii ti titi itt titi titi iiiiiitttiitiiiitititiiiiiititiiitt) 
3038 
3039 014314 LINBIT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
014314 004567 167574 JSR R5,PREGOS ;CALL REGISTER SAVE a" 
3040 014320 042701 177760 BIC #177760,R1 ;MASK OUT ALL BUT 4 LSBITS OF THE LINE ¢ 
3041 014324 006301 ASL Ri ;MULTIPLY LINE # BY 2 TO oy WORD TABLE OFFSET. 
3042 014326 016100 002370 MOV BITTBL(R1),RO  ;GET THE SINGLE BIT BIT MAP 
3043 014332 60$: PASS RO ;RESTORE GPRS, EXCEPT THE FOLLOWING, 
014332 010066 000002 MOV RO, ROSLOT(SP) sPUT RO IN STACK SLOT. 
014336 004736 JSR PC,a(SP)-+ RETURN TO PREGOS SUBRT. 
3044 014340 000207 RTS PC ;RO - BIT MAP WITH LINE # BIT SET. 


others are ae ed out (so unmasked 
| 
| 
| 


3074 014372 000207 RTS PC ; R2 - COUNT OF BITS set IN BIT MAP 
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SEQ 0080 
| GLOBAL SUBROUTINE - MAPCNT - 
| 3046 .SBTTL GLOBAL SUBROUTINE - MAPCNT - 
3047 WeMETiiiiii iii t itt ttt titi iti itt itiiiiiititiitittititiiititiiiiiitiiititii ttt ttt 
3048 i* - Count Bits in Bit Map Routine - 
foe ;* This subroutine counts the number of bits which are set in a bit map. 
3;* 
span ;* INPUTS: R2 - The bit map for which to count the bits. 
3% 
oes 3* OUTPUTS: R2 - Count of the number of bits that were set. 
;* 
ar 3* CALLING SEQUENCE: JSR PC ,MAPCNT 
;* 
3057 ;* COMMENTS: 
3058 ;* 
3059 ;* SUBORDINATE ROUTINES CALLED: None. 
cee Petit T titi itti titi titi titi itt tt itt ttt itt titi iti tit iii titi ititiiiiiiiii tists 
3062 014342 MAPCNT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
014342 004567 167546 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
3063 014346 010201 MOV R2,R1 
tend 014350 001405 BEQ 60$ ;EXIT WITH ZERO IF NO BITS ARE SET IN MAP. 
3066 014352 005002 CLR R2 ;CLEAR THE BIT COUNT. 
vod 014354 000261 SEC ;COUNT THE LAST BIT TO BE SHIFTED OUT. 
3069 014356 005502 2s: ADC R2 ;COUNT THE BIT IF IT WAS SET. 
3070 014360 006301 ASL R1 ;SHIFT ANOTHER BIT OUT OF THE MAP 
eors 014362 001375 BNE 2$ ;LOOP IF ALL BITS NOT SHIFTED OUT OF MAP. 
3073 014364 60$: PASS R2 ;RESTORE GPRS, EXCEPT THE FOLLOWING: 
014364 010266 000006 MOV R2,R2SLOT(SP) ;PUT R2 IN STACK SLOT. 
014370 004736 JSR PC,a(SP)-+ RETURN TO —— SUBRT. 


' 
EC > OO eee 


D/ 
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014374 
014374 


014400 
014402 


014404 
014406 
014410 
014412 
014416 
014420 
014422 
014424 


004567 


005102 
040203 


005701 
001011 
011400 
010067 
040200 
020003 
000261 
001420 


167514 


000070 


- MSLGET - 
.SBTTL GLOBAL SUBROUTINE - MSLGET - 
Pitiiiiiiitiii itt t tit te ttt ti tii iiiitiiiiiiitttti titi iit itiiiiiiiiiiiittt ttt ttt 
i* - Milli Seconds Loop which returns read word and remaining time - 
:* This subroutine is a general purpose test loop subroutine. It is used 
;* to verify that a certain action occurs before a time-out period. The 
i* calling routine passes in which bits should be set and cleared for the 
;* desired condition and the time-out value in milli-seconds. 
:* This routine checks for the desired condition upon entrance into the 
;* routine and then once each milli-second there after. 
7* Upon return, the last word which was read to check for the condition 
;* is returned by this subroutine. 
;* 
;* INPUTS: Rl - Time-out value in milli-seconds (up to 64K ms). 
i* R2 - Bit map of bits to test (1 indicates to test the bit). 
i* R3 - Desired states of the indicated fields in R2. 
;* R4 - Address of the word to test. 
:* MSLCNT - Milli second software loop count. 
;* 
;* OUTPUTS: RO - The last word which was read to check for the condition. 
:* Rl - Remaining number of ms in time-out time. 
:* CARRY - Success flag (set if condition is met before time-out). 
;* 
;* CALLING SEQUENCE: JSR PC ,MSLGET 
;* 
;* COMMENTS: This routine works with or without a hardware clock, but the 
:* calibration is only guarenteed when a line clock is available 
;* on the system. 
;* This routine can be used as a delay routine, by specifying the 
;* desired delay as the time-out and specifying a condition to 
;* look for which will not be met during the delay. 
:* If a time-out value of 0 is specified, this routine checks for 
;* the desired condition before returning. It indicates success 
;* if the condition is met, failure otherwise. 
3* 
* 


;* SUBORDINATE ROUTINES CALLED: None. 


FREER REE EEE KER ERE EEE EEE ERE REE EER ERE EERE SEER ERE REE EERE REEESEEEES 


MSLGET: : 


3¢ 


SAVE 


;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 


; Set up mask for removing unused bits in the test word, and clear unused 
; bits in the desired state word to allow direct comparison. 


$¢ 


a —~_ + eS ee 


COM R2 ;GET MASK OF UNUSED BITS. 

BIC R2,R3 ;MASK OUT UNUSED BITS IN DESIRED STATE WORD. 
; Handle the test and exit if we have a O time-out value. 

TST Ri ;TEST THE TIME-OUT VALUE FOR ZERO. 

BNE 2s ;IF NON-ZERO TIME-OUT, GO LOOP AND TEST. 

MOV (R4),RO ;GET THE WORD TO TEST BEFORE EXITING. 

MOV RO,62$ ;SAVE VALUE SO WE CAN RETURN IT. 

BIC R2,RO ;MASK OUT UNTESTED BITS OF WORC. 

CMP RO,R3 ;COMPARE AGAINST DESIRED STATE WORD. 

SEC ; INDICATE SUCCESS IN CASE WORDS ARE EQUAL. 

BEQ 6$ ;EXIT WITH SUCCESS IF WORDS ARE EQUAL. 


SEQ 0081 


ee 


E/ 
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014426 
014430 


014432 
014436 
014440 
014444 
014446 
014450 
014452 
014454 
014456 
014460 
014462 
014464 


014466 
014472 
014472 
014476 
014502 


014504 


014506 


000241 
000416 


016705 
0 


000241 


016700 


010066 
010166 
004736 


000207 


000000 


165702 
000042 


000014 


000002 
000004 


- MSLGET - 
CLC 
BR 6$ 
; Non-zero time-out value. 
2s: MOV MSLCNT,RS 
4$: MOV (R4),RO 
MOV RO,62$ 
BIC R2,RO0 
CMP RO,R3 
SEC 
BEQ 6$ 
DEC RS 
BNE 4$ 
DEC R1 
BNE es 
CLC 


;* 


; INDICATE FAILURE (TIME-OUT). 
;EXIT WITH FAILURE, WORDS AREN'T EQUAL. 


Loop, waiting for condition or time-out. 


;LOAD_MS LOOP COUNT. 

;GET THE WORD TO TEST. 

;SAVE WORD IN CASE THIS IS THE LAST. 
;MASK OUT UNTESTED BITS OF WORD. 
;COMPARE AGAINST DESIRED STATE WORD. 
;SET CARRY IN CASE OF SUCCESS. 

s;EXIT WITH SUCCESS IF WORDS ARE EQUAL. 
;COUNT DOWN THE INSIDE MS LOOP COUNT. 
;LOOP IF MS NOT UP. ; 
;DECREMENT THE MS TIME COUNT. 

;IF TIME NOT UP, LOOP TO COUNT ANOTHER MS. 
;CLEAR CARRY, WE TIMED-OUT. 


; Have either found condition, or timed-out (possibly from 0 time-out value). 
; Restore the last contents read from the test word. Exit routine. 


6$: MOV 62$ ,RO 
60$: PASS RO,R1 


MOV RO,ROSLOT(SP) 
MOV R1,R1SLOT(SP) 
JSR PC, a(SP )+ 


RTS PC 
; Local storage. 
62$:  .WORD 0 


PASS OUT THE LAST READ WORD. 

RESTORE GPRS, EXCEPT THE FOLLOWING: 

;PUT RO IN STACK SLOT. 
PUT Ri IN STACK SLOT. 
;RETURN TO PREGOS SUBRT. 
;RO - LAST READ WORD CHECKED FOR CONDITION. 
3R1_- REMAINING TIME (O IF TIME-OUT OCCURED). 
;CARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 


;STORAGE FOR THE LAST READ WORD. 


SEQ 0082 


= 


ee oe 


F7 
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083 


| GLOBAL SUBROUTINE - MSLOOP - 
| 3163 -SBTTL GLOBAL SUBROUTINE - MSLOOP - 
3164 iiitiiiiitiitigtttitititititiiiititiiitititiitiiiititiiitiiiiiiiiititttt tt ttt) 
3165 ;* - Test Loop subroutine - 
3166 ;* This subroutine is a general purpose test loop subroutine. It is used 
3167 ;* to verify that a certain action occurs before a time-out period. The 
3168 ;* calling routine passes in which bits should be set and cleared for the 
3169 :* desired condition and the time-out value in milli-seconds. 
3170 ;* This routine checks for the desired condition upon entrance into the 
sii ;* routine and then once each milli-second thereafter. 
;* 
3173 ;* INPUTS: R1 - Time-out value in milli-seconds (up to 64K ms). 
3174 ;* R2 - Bit map of bits to test (1 indicates to test the bit). 
3175 ;* R3 - Desired states of the indicated fields in R2. 
3176 ;* R4 - Address of the word to test. 
sped ;* MSLCNT - Milli second software loop count. 
;* 
ey ;* OUTPUTS: CARRY - Success flag (set if condition is met before time-out). 
3;* 
73 ;* CALLING SEQUENCE: JSR PC ,MSLOOP 
;* 
3183 ;* COMMENTS: This routine works with or without a hardware clock, but the 
3184 i* calibration is only gquarenteed when a line clock is available 
3185 ;* on the system. 
3186 ;* This routine can be used as a delay routine, by specifying the 
3187 ;* desired delay as the time-out and specifying a condition to 
3188 :* look for which will not be met during the delay. 
3189 :* If a time-out value of 0 is specified, this routine checks for 
3190 :* the desired condition before returning. It indicates success 
:* if the condition is met, failure otherwise. 
1 ;* 
3193 ;* SUBORDINATE ROUTINES CALLED: MSLGET. 
3194 Pittiititiititiitttttttititititiititiitittttititittttttitititit titi ttt ttt ttt ts 
3195 
3196 014510 MSLOOP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
— 014510 004567 167400 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
19 
3198 i* : . ; 
3199 ; Calling the MSLGET routine from the MSLOOP routine isolates the caller of 
3200 ; MSLOOP from the returned test word and remaining time-out values. 
3201 '- 
a | 014514 004767 177654 JSR PC ,MSLGET ;CALL THE MULTI-PURPOSE MS LOOP AND SEARCH RTN. 
20 
3204 014520 60$: PASS ;RESTORE GPRS, 
014520 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
3205 014522 000207 RTS PC ;CARRY - SET IF SUCCESS, CLEAR IF TIME-OUT. 


ee 


ee ee 


G/ 
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32 

3226 
3227 
3228 


014524 
014524 


014530 
014530 
014532 
014534 
014536 


014540 
014540 
014544 
014550 
014552 
014554 
014560 
014560 
014562 
014564 
014564 
014566 


014570 
014573 
014576 
014601 
014604 
014607 
014612 
014615 
014620 
014623 
014626 
014631 
014634 
014637 
014642 
014645 


004567 


104454 
000145 
014570 
000000 


012746 


062706 


104422 
000776 


004736 
000207 


167364 


014654 
000001 


000004 


- OOPS - 


SEQ 0084 


-SBTTL GLOBAL SUBROUTINE - OOPS - 
OME TITICI CTI TT iii titi iti iii tiiii titi irri ri iii ri iit iii ir iiititiiii titi ii ttt tty 
;* - Program abort subroutine - 
:* This subroutine is used to abort the program when a fatal error is 
;* detected in the program or the host system hardware. An error message 
;* is printed giving some information about the nature of the abort. 
;* 
;* INPUTS: Ri - Error code giving reason for abort. 
;* 
;* OUTPUTS: ¥ error message is printed. 
i* A list of return PC values for all subroutine calls is printed. 
;* CALLING SEQUENCE: JSR PC,OO0PS 
;* 
;* COMMENTS: 
;* 
;* SUBORDINATE ROUTINES CALLED: None. 
Pree tTITiiiititiiiiiiiiitiiiritiiiiititiiriritiriiiiiiririir iri irri rr ii rr itt 
OOPS:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS5,PREGOS ;CALL REGISTER SAVE SUBRT. 
; REPORT “HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED.” ERROR. 
ERRSF 101,EM0101 
TRAP CSERSF 
-WORD 101 
-WORD €MO101 
-WORD 0O 
; REPORT “PROGRAM HUNG, WAITING FOR A CONTROL-C.” 
PRINTF #E&M0102 
MOV #EM0102, -( SP) 
MOV . 
TRAP CS$PNTF 
AbD #4, SP 
2s: BREAK ;LOOK FOR OPERATOR CONTROL-C INPUT. 
TRAP C$BRK 
BR 2$ ; INFINITE LOOP. 
60$: PASS ;DON'T NEED THIS, BUT SOMEBODY MAY CHANGE THIS 
JSR PC, aC SP )+ ;RETURN TO PREGOS SUBRT. 
RTS PC ; ROUTINE IN THE FUTURE, SO BE CONSISTANT. 


123 EMO101:: .ASCIZ /HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED./ 


‘ 
a ee 


H7 
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"Be Tone 
3237 014654 045 116 045 €M0102:: .ASCIZ /#NSAPROGRAM HUNG, WAITING FOR A CONTROL-C. <##eeeee44 44 49NSN/ 

014657 101 120 122 

014662 117 107 122 

014665 101 115 040 

014670 110 125 116 

014673 107 054 040 

014676 127 101 111 

014701 124 111 116 

014704 107 040 106 

014707 117 122 040 

014712 101 040 103 

014715 117 116 124 

014720 122 117 114 

014723 0s5 103 056 

014726 040 074 052 

014731 052 052 052 

014734 052 052 052 

014737 0S2 052 052 

014742 052 052 052 

014745 045 116 045 

014750 116 000 

3238 -EVEN 


SEQ 0085 


1/ 
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2 
3263 


0 
3272 


3273 


014752 
014752 
014756 
014762 
014766 
014772 
014776 
015000 


015002 


0 
015032 


004567 
016701 
016702 
042703 
056703 
010311 
011204 


010446 
012746 
012746 
012746 
010600 
104415 
062706 


004736 
000207 


167136 
165260 
165260 
177760 
165272 


011027 
005276 
000003 


000010 


- PRTLPR - 


SEQ 0086 
-SBTTL GLOBAL SUBROUTINE - PRTLPR - 
PME Ti iiiiititittt titi titiiiiiiiititiiitititititiiiiiiiiiiitiiitttttitt tt ttt tt 
:* -Print the contents of the LPR. 
:* This routine is used to print out extended information on the 
;* contents of the Line Parameter Register (LPR). 
;* 
;* INPUTS: R3 - Contains the number of the line ou wish to examine. 
i* CSRA - Contains the address of the DUT's CSR 
;* IESTAT - Contains the current status of the TX and RX interrupt 
i* enable bits in the DUT’s CSR. 
:* LPRA - Contains the address of the DUT'’s LPR register. 
3;* 
;* OUTPUTS: An extended information message is printed on the operators 
i* console. 
;* 
;* CALLING SEQUENCE: JSR PC,PRTLPR 
:* 
;* COMMENTS: This routine Saree the indirect address field of the device 
;* under test's CSR. 
;* 
;* SUBORDINATE ROUTINES CALLED: NONE. 
Pee tiiittiiittitttttitititiitiiitittitititittittiitiitiiitiittttttttttt tit itt +3 
PRTLPR: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV CSRA,R1 ;GET THE CSR ADDRESS. 
MOV LPRA,R2 ;GET THE LPR ADDRESS. 
BIC #177760, R3 ;CLEAR ANY UNWANTED BITS. 
BIS IESTAT, R3 ;SET STATE OF TX AND RX INTERRUPT ENABLE BITS. 
MOV R3,(R1) ;SELECT LINE. 
MOV (R2),R4 ;GET CONTENTS OF THE LPR. 
;PRINT MESSAGE "CONTENTS OF THE LPR:mnnnnn” 
"PRINTX #EF 9019, #EM9026,R4;PRINT OUT MESSAGE ON nian * muon ( 
4,-(S 
MOV #EM9026, -( SP) 
MOV #EF9019,-(SP) 
MOV #3,-(SP) 
MOV SP ,RO 
TRAP C$PNTX 
ADD #10,SP 
60$: PASS ;RESTORE GPRS. 


JSR PC, a(SP )+ s;RETURN TO PREGOS SUBRT. 
RTS PC 


a | 





--- me eee 


J/ 
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SEQ 0087 
; GLOBAL SUBROUTINE - PUFIFO - 
3275 -SBTTL GLOBAL SUBROUTINE - PUFIFO - 
3276 ESS Lt tt oer T TPP PTT iti titi i iit ii ii itt tet ett tit ttt ttt tT TTT TTT TTT TT TTT TTT 
3277 ;* - PURGE THE FIFO 
3278 ;* This routine tries to remove all the characters from the FIFO. 
a2. ;* Any BMP codes that are found are saved on the BMP code queue. 
;* 
seek ;* INPUTS: RBUFA- Contains the address of the Receiver. 
:* 
3283 ;* 
3284 ;* OUTPUTS: Carry bit - Indicates the state of the fifo, set:= purged. 
sse2 is BMPCO - The contents of the BMP code queue may be updated. 
od os CALLING SEQUENCE: JSR PC ,PUFIFO 
;* 
3289 ;* COMMENTS: 
3290 ;* 
3291 ;* SUBORDINATE ROUTINES CALLED: SAVBMP. 
aeee Et E Toei TTP P TST PP tt Petit iti i titi tt ttt tt ttt tt ttt TTT TTT TTT TTT TT TTT TT TTT TT TTTTrTT 
3294 015034 PUFIFO: : SAVE ;SAVE CONTENTS OF te RO THRU RS. 
015034 004567 167054 JSR R5, PREGOS ;CAL eh SAVE SUBRT. 
3295 015040 012701 001000 MOV #512.,R1 ;SET MAXIMUM TRY COUNT ’O 12. 
eset 015044 016704 165174 MOV RBUFA,R4 ;GET ADDRESS OF THE RECEIVER BUFFER REGISTER. 
3298 015050 011402 2s: MOV + ioe ;GET THE CONTENTS OF THE RECEIVER BUFFER REG. 
344 015052 100016 BPL ;EXIT IF THE FIFO IS EMPTY, DATA_VALID CLR. 
3301 | Check if the read character is actually a BMP code. 
soe ; If it is, then save it on the BMP code queue to be reported later. 
3304 015054 012700 070000 MOV #70000,RO ;GENERATE A BIT MAP OF , ERROR BITS 
3305 015060 040200 BIC »RO ; WHICH ARE NOT SET FOR CHA 
soon 015062 001006 BNE ; THROW CHAR AWAY IF NOT BMP. OR SELFTEST CODE. 
$o08 " Check if the read data is modem status , BMP or Selftest?. 
3310 015064 012700 000300 MOV #300,RO ; CHECK IF BMP OR SELFTEST?. 
3311 015070 040200 BIC R2,RO0 ;TRY TO CLEAR BMP FLAGS IN THE READ DATA. 
3312 015072 001002 BNE 4$ ;IF IT IS MODEM OR SELFTEST CODE THROW IT AWAY. 
StH 015074 004767 000444 JSR PC, SAVBMP ;SAVE BMP CODE ON THE QUEUE. 
3315 015100 005301 4$: DEC Ri ;DECREMENT THE TRY COUNT. 
3316 015102 001362 BNE 2s ;LOOP TO TRY AGAIN. 
3317 015104 000241 CLE ;CLEAR CARRY,TO tT Te FIFO NOT PURGED. 
3318 015106 000401 R 60$ ;EXIT WITH CARRY CLEAR 
A384 015110 000261 6$: SEC ;SET CARRY, TO INDICATE FIFO PURGED. 
3321 015112 60$: PASS ;RESTORE om, 
015112 004736 JSR C,a RETURN TO PREGOS SUBRT. 
3322 CARRY BIT, SET INDICATES FIFO PURGED. 
3323 015114 000207 RTS PC 
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3353 015116 

015116 
3354 015122 
3355 015126 


3360 015132 
3361 015136 


3365 015140 
3366 015144 
3367 015146 


3372 015150 
3373 015156 
~ 3374 015162 
3375 015164 
3376 015166 
3377 015172 


004567 
016746 
012705 


017702 
100057 


012700 
040200 
001012 


012767 
012700 


040200 © 


001003 
004767 
000424 


166772 
166760 
001000 


165106 


070000 


012334 
000300 


000352 


IK 7 


SEQ 0088 


-SBTTL GLOBAL SUBROUTINE - PUFIFR - 

REE EERE EERE EERE RRR EERE REAR EERE EERE EERE EERE EERE REE EEE REEEEEEEE KEE RE RE EEE 
- Purge FIFO report any errors found. 

This routine removes all data from the FIFO. Any BMP codes that are 
found are save on the queue to be reported later in the BMP report test. 
Any unxepected data (ie any non-status inforamtion) that are found, 

are reported as an error. 

If the FIFO will not purge after 512 attempts, then the current test 
that called this routine receives a failure flag that should be used 

to abort the test. 


INPUTS: ERRTBL - ERRTYPE, ERRMSG, ERRNBR are set up correctly. 
RBUFA- Contains the address of the Receiver. 
OUTPUTS: Carry bit - Abort test flag, Clr = ABORT TEST, Set = OK. 


ERRBLK - Value will be dastroyed. 
BMPCQP - The BMP code queue pointer may be updated. 
The contents of the BMP code queue may be udated. 


CALLING SEQUENCE: JSR PC,PUFIFR 


COMMENTS: This routine reports errors with numbers initial ERRNBR 
thru to ERRNBR+2. 
The ERRNBR is restored to its INITIAL value before returning. 


;* SUBORDINATE ROUTINES CALLED: ER1603,ER9001,ER9002,SAVBMP. 
5 REE REE EEE EERE EERE EE ERE EERE EERE EE EEE EEE EERE 


PUFIFR: : SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS, PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV ERRNBR, -( SP) sSAVE THE CONTENTS OF THE ERROR NUMBER. 
MOV #512. ,R5 ;SET MAXIMUM READ COUNTER TO 2*FIFO SIZE. 


;* 
; Read data from the FIFO until DATA VALID is clear of read counter is zero. 
; Report any BMP or Unexpected data as errors. 


HHRHHKHHHHHHHRHRHRHHHHRHEH HH HH 


se Se we we we we we we ee es ws ws Se we Se Se Se Se we oe we 


2$: MOV ARBUFA,R2 ;GET THE CONTENTS OF THE RECEIVER BUFFER REG. 
BPL 8$ ;EXIT IF DATA VALID CLEAR, ie. FIFO PURGED. 
; Check if read data is status or unexpected character. 
MOV #70000,RO ;GENERATE A BIT MAP OF CHAR ERROR BITS 
BIC R2,RO ; WHICH ARE NOT SET FOR CHAR. 
BNE 4$ ;SKIP BMP CHECK IF IT IS UNEXPECTED DATA. 


3+ 
; Check if the read data is modem status , BMP or Selftest?. 
; If it is a BMP code then save it on the queue. 


MOV rs nt ye «Lect ;SET_UP THE CORRECT ERROR REPORTING ROUTINE. 


MOV ;_CHECK IF BMP OR SELFTEST?. 

BIC - R2,RO ;TRY TO-CLEAR BMP FLAGS IN THE READ DATA. 
BNE 4$ ;SKIP BMP ERROR REPORT IF MODEM OR SELFTEST?. 
JSR PC, SAVBMP sSAVE THE BMP CODE ON THE QUEUE. 

BR 6$ ;BRANCH TO CHECK READ COUNT. 


i? 
; Check if the read data is Modem, Selftest or Unexpected data. 


= ee ee ee 
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3381 015174 Sotasi 000001 4$: 


3416 015306 000207 


L/ 


SEQ 0089 


BIT #BITO,R2 ;TEST THE MODEM STATUS INDICATION BIT. 


RTS PC 


3382 015200 0014 BEQ 6$ ;D0 NOT REPORT ANY ERROR IF MODEM STATUS. 
3383 015202 012701 011053 MOV #EM9104,R1 ;PASS THE CORRECT ERROR MESSAGE TO REPORT. 
3384 015206 010203 MOV R2,R3 ; EXTRACT THE er NUMBER FROM 
3385 015210 SWAB R3 i THE READ DATA 
3386 015212 042703 177760 BIC #177760,R3 
3387 015216 006303 ASL R3 ;FORM LINE NUMBER TIMES 2 FOR ER9002 ROUTINE. 
3388 015220 052704 100000 BIS #BIT15,R4 ;SET THE "NONE” EXPECTED MAESSAGE FLAG. 
3389 015224 005267 166656 INC ERRNBR ;SET ERROR NUMBER TO INTIAL ERRBRe1. 
3390 015230 012767 012424 166654 MOV #ER9002,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
3391 ;REPORT ERROR “UNEXPECTED DATA FOUND IN FIFO”. 
3392 015236 ERROR ; >>>>> ERROR <<<<c, 
015236 104460 TR CSERROR 
sect 015240 005367 166642 DEC ERRNBR ;RESTORE ERROR NUMBER TO INTIAL ERRNBR. 
3395 015244 005305 6$: DEC RS ;DECREMENT READ COUNTER. 
4. J 015246 001331 BNE 2$ ;LOOP TO READ NEXT CHAR FROM FIFO IF COUNT > O. 
3398 ; The FIFO will not clear, report the error and indicate that the test is to 
3444 ; be ABORTED. 
3401 015250 062767 000002 166630 ADD #2,ERRNBR ;SET ERROR NUMBER TO INTIAL ERRNBR+2. 
3402 015256 012767 011662 166626 MOV #ER1603, ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
3403 015264 012701 010716 MOV #EM9017,R1 ;PASS THE MESSAGE TO BE REPORTED. 
3404 ;REPORT THE ERROR "FIFO WILL NOT PURGE, (DATA VALID STUCK SET)" 
3405 3 "22222? TEST ABORTED". 
3406 015270 ERROR ; >>>>> ERROR <<<<<, 
015270 104460 TRAP CSERROR 
3407 015272 000241 CLC ; INDICATE THE TEST IS TO BE ABORTED. 
ot 015274 000401 BR 10$ EXIT THIS ROUTINE AND ABORT THE CURRENT TEST. 
ott 015276 000261 8$: SEC ;SET THE CARRY, DO NOT ABORT THE TEST. 
3412 015300 012667 166602 10$: MOV (SP)+,ERRNBR ;RESTORE INITIAL ERROR NUMBER. 
3413 015304 60$: PASS ;RESTORE GPRS, 
015304 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
3414 ; CARRY BIT, SET INDICATES FIFO PURGED, DO NOT 
3415 ; ABORT THE TEST 
| 
{ 
| 


-_———— Ne  mnneiestind 


M7 
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SEQ 0090 
GLOBAL SUBROUTINE - READBX - 
3418 -SBTTL GLOBAL SUBROUTINE - READBX - 
3419 5 Oo RRAERRERRERSEREER EEE ER EEE EEEER ERS ES EES ERE REE ERER EEE EEEEE EEE EER EERE EERE EE EES 


3420 ;* READ CHARACTERS FROM THE FIFO AND CHECKS FOR BMPS AND XONS- 
3421 ;* This subroutine is used in the FIHAVL.TST. 
3422 ;* It reads the specified number of characters from the fifo and checks 
se53 ;* for BMP codes and XON characters. 
;* 
pees ;* INPUTS: RO - Contains the number of chars to read from the fifo. 
;* 
3427 ;* OUTPUTS: Ri - Contains address of error message to be reported 
3428 ;* Clear if no error found. 
oy 34 ;* Carry used to indicate if fifo was found empty, carry clear. 
;* 
3431 ;* CALLING SEQUENCE: JSR PC ,READ 
3432 ;* 
3433 ;* COMMENTS: 
3434 ;* 
3435 ;* SUBORDINATE ROUTINES CALLED: CHKBMP. 
aime Pettitt ititiititiititiiititiiiitttiititititittititiiititiitiitiiiittiti itty. 
3438 015310 READBX:: SAVE ;SAVE CONTENTS OF te RO THRU RS. 
015310 004567 166600 JSR R5, PREGOS ;CAL C REGISTER SAVE SUBRT. 
3439 015314 005001 CLR Ri ;CLEAR GPR THAT HOLDS THE ADDRESS OF ERRMSG. 
3440 015316 016703 164722 MOV RBUFA,R3 ;GET THE ADDRESS OF THE rien BUFFER REG. 
3441 015322 011302 2s: MOV (R3),R2 ;READ A CHARACTER i. _" FO. 
reat 015324 100015 BPL 8$ ; BRANCH IF FIFO IS EMP 
3¢ 
3444 ; Check if the read character is a BMP code. 
3445 ; If it is a BMP code save it on the queue to be reported later, and 
3409 ; abort the test. 
3448 015326 004767 176054 JSR PC, CHKBMP ;CHECK IF CHARACTER zs A = CODE. 
3449 015332 103410 BCS 6$ ; BRANCH IF A BMP CODE WAS FOUND. 
3450 015334 120227 000021 CMPB- R22, #21 ;CHECK IF IT -. - XON. 
3451 015340 001003 BNE 4$ _ IF NOT AN XON. 
3452 015342 012701 006744 MOV #EM5402,R1 ;PASS THE MESSAGE TO BE REPORTED. 
3453 015346 000402 BR 6$ ;G0 EXIT TEST. 
3454 015350 005300 4$: DEC RO ; DECREMENT THE READ COUNT. 
3455 015352 0013 BNE 2$ 
3456 015354 000261 6$: SEC ;SET CARRY TO INDICATE SUCCESS. 
3457 015356 0004 BR 60$ ; 
ots 4 015360 000241 8$: CLC ;CLEAR CARRY BIT TO INDICATE FAILURE. 
3460 015362 60$: PASS Ri ;RESTORE GPRS, 
015362 010166 000004 MOV R1,RISLOT(SP) ;PUT R1 IN STACK SLOT. 
015366 004736 JSR PC,a(SP)- ;RETURN TO PREGOS SUBRT. 
3461 015370 000207 RTS PC 


ee ee 


N7 
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3488 015372 
015372 
3489 015376 


3500 
3501 015424 


3508 015426 
3509 015432 


004567 
012702 


103012 


010277 
004767 


005003 
012701 
004767 
103410 


166516 
000040 


164634 


004704 
176750 


164610 
000266 


004704 
176724 


- RESETT - 


-SBTTL GLOBAL SUBROUTINE - RESETT - 
Pitiiiiitiiti¢iiti titi iti iii iii tiiiiiiititiiiiititiiiiiiiiitiiiitititiT i ttt ttt) 
;* - Reset Device Under Test - 
;* This subroutine is used to reset the DUT to a known state. 
;* If reset does not succesfully complete, ie. time-out occurs, then 
;* an abort test error message is reported. 
;* 
;* INPUTS: CSRA - Contains the address of the CSR 
3% TXBFCA - Contains address of DUT DMA Buffer Count register. 
;* ERRTBL- ERRTYP,ERNBR,and ERRMSG set up correctly. 
;* 
;* OUTPUTS: The DUT performs its reset function into a known state. 
;* CARRY - Clear indicates the test is to be aborted. 
;* ERRBLK - value om be destroyed. 
:* IESTAT - TX and RX interrupt flags are cleared. 
ot TX and RX interrupt enable bits in the DUT's CSR ere cleaved 
;* 
;* CALLING SEQUENCE: JSR PC,RESETT 
;* 
;* COMMENTS: This subroutine can report errors with numbers initial ERRNBR 
;* This routine does not destroy the value of ERRNBR. 
;* 
;* SUBORDINATE ROUTINES CALLED: DELAY,MSLGET. 
Piiiiiiiiiiiitiiitititiiiitiiitit tii iiiti tit itiiiiiiiiiiiiiiiititiit titi iit it tt 
RESETT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV #BITOS,R2 SET BIT MASK OF MASTER RESET BIT. 
ig Test the state of the master reset bit in the CSR. 
; If MR is set then wait for self-test to complete. 
; If time-out occurs, report the error and pass-out abort test indicator. 
P MOV CSRA,R4 ;GET THE ADDRESS OF THE DUT'S CSR. 
BIT R2,(R4) ;CHECK STATE OF MASTER RESET BIT. 
BEQ 2s ;DON'T DELAY IF MR IS ALREADY CLEAR. 
CLR R3 ;SET UP DESIRED STATE OF MASTER RESET BIT. 
MOV #2500. ,R1 ;PASS TIME-OUT VALUE OF 2.5 SECONDS. 
JSR PC, MSLGET ;WAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
BCC 4$ ;GO REPORT ERROR IF TIMEOUT OCCURRED. 
Hid 
; Set Master Reset bit in CSR. Clear TX and RX enable bits, etc. 
; Skip the selftest. 
; Time-out of 2.5 secs, just in case the self-test executes. 
2$: MOV R2,@CSRA ;SET MASTER RESET BIT, DISABLE TX AND RX INTS. 


JSR PC,SKPSTS ;TRY TO SKIP THE SELFTEST. 
;* 
3 Set Self-test time-out of 2.5 seconds, and wait for M.R to clear. 
; If Time-out occurs, then report the fatal error and pass-out the abort 
; test indicator. 
F 


CLR R3 ;SET UP ey oraye OF MASTER RESET BIT. 
MOV #2500. ,R1 sPASS TIME-OUT VALUE OF 2.5 SECONDS. 

JSR PC ,MSLGET s;WAIT FOR SELF - TEST TO Bg hh MR CLEAR, 
BCS 6$ ;SKIP ERROR REPORT IF MR CLEARED IN TIME. 





SEQ 0091 


ee ee ee 
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GLOBAL SUBROUTINE 


3523 015452 012701 


015464 104460 
3528 015466 000241 
3529 015470 000403 


3534 015472 005067 
sees 015476 000261 


015500 004736 
3539 015502 000207 


005711 


tees 015456 012767 011662 166426 


164572 


- RESETT - 


3*¢ 


; Set up error message to report "fatal error found durin Lenenies test aborted”. 
; Indicate test is to be aborted by clearing the cerry bi 


#€M1601,R1 


3 
4$: 


MOV 


CLC 
BR 


MOV #ER1603, 
;REPORT ERROR "TIME-O 
;_ "TEST ABORTED” 
ERROR 


60$ 


sPASS ERROR MESSAGE TO REPORT. 


eo :PASS ADDRESS OF ERROR HANDLING ROUTINE. 
T OCCURRED WAITING FOR MASTER RESET TO CLEAR” 


; >>>>> ERROR <<<<< 

TRAP CS$ERROR 
sINDICATE TEST IS TO BE ABORTED. 
;EXI7 THIS SUBROUTINE, ABORT TEST INDICATOR. 


; Cleer TX and RX Interrupt enable status flags in IESTAT. 
; Exit with continue test indicator set (ie,carry set). 


i 


60$: 


CLR 
SEC 


PASS 


RTS 


IESTAT 


PC 


JSR 


;CLEAR TX AND RX INTERRUPT STATUS FLAGS. 
sINDICATE SUCCESS, CONTINUE TEST. 


;RESTORE GPRS, PASS THE FOLLOWING INTACT: 
C, )+ ETUR 


N TO PREGOS SUBRT. 


;CARRY BIT: IF CLEAR, INDICATES ABORT TEST. 





SEQ 0092 


en ee ee ee 
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SEQ 0093 
| GLOBAL SUBROUTINE - RXIEO - 

3542 .SBTTL GLOBAL SUBROUTINE - RXIEO - 

3543 WOME TIiiittititi titi titi iti tii iiiiititiitititiiitiiitiiiiiiiiitiiiititititt ttt) 

3544 ;* - RECEIVER INTERRUPT DISABLE - 

Saag 3* This routine is used to disable receiver interrupts in the DHV11. 

37% 

334? o INPUTS: NONE . 

3549 OUTPUTS: The RX.INT.ENBL bit is cleared in the DUT CSR. 

3550 ;e IESTST -contains the updated status of the TX and RX interrupt 

3551 ;* enable bits. 

3552 ;* 

eoez ;* CALLING SEQUENCE: JSR PC ,RXIEO 

:* 

3555 ;* COMMENTS: The contents of the indirect address register field in 

eaee = the DUT CSR are destroyed. 

3558 ° SUBORDINATE ROUTINES CALLED: NONE. 

3559 Peer ti titi iiitttt iti tii titi titi titi titi ttt ttt titi tittititiiiiitiitiiiiiititti +) 

3560 015504 010046 RXIEO:: MOV RO, -(SP) ;SAVE CONTENTS OF RO ON THE STACK. 

3561 015506 GETPRI -(SP) ;SAVE PROCESSOR PRIORITY ON STACK. 

015506 104440 TRAP C$GPRI 
015510 010046 MOV RO,-(SP) 
015512 012700 000340 MOV #PRIO7,RO 
015516 104441 TRAP C$SPRI 

3563 015520 042767 137777 164542 BIC #137777, IESTAT ;CLEAR RX.INT.ENBL BIT IN IESTAT. 

3564 015526 016777 164536 164506 MOV IESTAT,@CSRA ;DISABLE RX INTERRUPTS. 

3565 015534 SETPRI (SP)+ ;ENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
015534 012600 MOV (SP)+,RO 
015536 104441 TRAP C$sPRi 

3566 015540 012600 MOV (SP )+,RO s;RESTORE RO. 

3567 015542 000207 RTS PC 


3562 015512 SETPRI #PRIO7 ;IGNORE ANY INTERRUPT THAT MAY BE GENERATED. 
! 


a OO OOOO _-eoooose eo 


em ee ee a ee ee > - —-- 


ae ee PRINTS pe es ee 
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SEQ 0094 
GLOBAL SUBROUTINE - SAVBMP - 
3569 .SBTTL GLOBAL SUBROUTINE - SAVBMP - 
3570 eM titi itittititittttititiittttitit it ttt itt ttt titi ttt ttt ti ttt TT TTT Ti TT TTT TTT 
3571 ;* - Save BMP codes Routine - 
3572 ;* This routine saves the parameter passed in, onto the BMP code queue 
3e74 i* together with the number of the currently executing test. 
3;* 
3575 ;* INPUTS: R2 - Contains the BMP code that is to be placed on the queue. 
3576 :* BMPCQP - Contains address of next location in the bmp queue. 
3577 ;* BMPCQB - Label at base of the BMP code queue 
3578 3* BMPCQE - Label of next location after the end of the BMP queue. 
een 7* TSTNUM - Contains the number of the current test. 
3% 
3581 ;* OUTPUTS: BMPCQP - Incremented by 4. 
a ;* The contents of the BMP” code queue are updated. 
;* 
sone 3* CALLING SEQUENCE: JSR PC, SAVBMP 
;* 
3586 ;* COMMENTS: If the overflow occurs then the last location will be 
2344 :* overwritten by any subsequent attempts to update the queue. 
;* 
3589 ;* SUBORDINATE ROUTINES CALLED: None. 
cone PESTS CSF CCST PT eT TTT Peter irre titre tii t ttt ttt rts ti titi ti ititti itt tititittiti +f 7 
3592 015544 SAVBMP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
015544 004567 166344 JSR RS, PREGOS ;CALL REGISTER SAVE SUBRT. 
3593 015550 016704 164666 MOV BMPCQP ,R4 ;GET THE POINTER TO THE NEXT LOCATION IN QUEUE. 
3594 015554 116724 164506 MOVB TSTNUM,(R4)+ ;SAVE THE CURRENT TEST NUMBER ON THE QUEUE. 
3595 015560 005204 INC R4 ; INCREMENT THE POINTER TO GIVE AN EVEN ADDRESS. 
3596 015562 042702 177400 BIC #177400,R2 ;CLEAR THE UNWANTED BITS FROM THE BMP CODE. 
3597 015566 010224 MOV R2,(R4)+ ; SAVE THE BMP CODE ON THE QUEUE. 
3598 015570 020427 002644 CMP R4, #BMPCQE ;CHECK IF OVERFLOW WILL OCCUR THE NEXT TIME. 
3599 015574 103402 BLO 2s ;GO SAVE THE POINTER IF WE WILL NOT OVERFLOW. 
3600 015576 162704 000004 SUB #4,R4 ;RESET THE POINTER TO THE LAST LOCATION IN QUE. 
ere 015602 010467 164634 2s: MOV R4,BMPCQP ;SAVE THE POINTER. 
3603 015606 60$: PASS ;RESTORE GPRS. 
015606 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 


3604 015610 000207 RTS PC 


—— -—- nj = a 


ce =n eee ow me me +. se —_—- —- 


ill 


_E8 
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3641 015654 000207 RTS PC 


| SEQ 0095 
GLOBAL SUBROUTINE - SAVMST - 
| 3606 .SBTTL GLOBAL SUBROUTINE - SAVMST - 
3607 PEM TiTiii ii tii ttt ttt titi iit tititiitiiiitititititittitttitititititiii tit tt titty 
3608 i* - Save Modem Status Routine - 
3609 ;* This routine saves the present contents of the DUT STAT registers in 
ei? ;* the STAT storage table. 
;* 
| 3612 ;* INPUTS: CSRA - Contains the address of the DUT CSR. 
3613 7* IESTAT - State of the DUT CSR interrupt enable bits. 
3614 ;* NUMLNS - Equated to the number of lines on the DUT. 
3615 7* STATA - Contains the address of the DUT STAT register. 
sere ;* STSTB - Label at base of the STAT storage table. 
;* 
3618 ;* OUTPUTS: STST Table - Overwritten with present STAT contents. 
44 * CSR IND.ADR.REG field - Destroyed. 
;* 
aees ;* CALLING SEQUENCE: JSR PC ,SAVMST 
;* 
3623 3* COMMENTS: If the contents of IESTAT changes during this test the CSR 
aan ;* interrupt enable bits will not track the change. 
3;* 
3626 ;* SUBORDINATE ROUTINES CALLED: None. 
eee? Pe tiii iii ii titi ttt ttt titi titi iti titi titi ii ttt ttt ttt ttt ti tititittitt tt titi ttt 
3629 015612 SAVMST:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
015612 004567 166276 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
3630 015616 016701 164446 MOV IESTAT,R1 ;GET IE STATES FOR UPDATING IND.ADR.REG FIELD. 
3631 015622 012702 002644 MOV #STSTB,R2 ;SET UP STAT STORAGE POINTER TO BASE OF TABLE. 
3632 015626 012703 000010 MOV #NUMLNS , R3 
3633 015632 050103 BIS R1,R3 ;FORM COMPLETION COMPARISON WORD. 
3634 015634 010177 164402 2s: MOV R1,@CSRA ;SET UP THE CSR IND.ADR.REG FIELD. 
3635 015640 017722 164404 MOV @STATA,(R2)+ ;SAVE CONTENTS OF THIS LINE'S STAT REGISTER. 
3636 015644 005201 INC R1 ;SET LINE COUNTER TO NEXT LINE. 
3637 015646 020103 CMP R1,R3 ; CHECK FOR ALL LINES DONE. 
ages 015650 002771 BLT 2s ;LOOP IF NOT ALL LINES DONE. 
3640 015652 60$: PASS ;RESTORE GPRS. 
015652 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 
| 
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ee ee ee eee cee 


GLOBAL SUBROUTINE 


3662 015656 

015656 
3663 015662 
3664 015666 
3665 015670 
3666 015674 
3667 015700 
3668 015704 
3669 015710 
3670 015714 


3672 015720 


015720 
3673 015722 


012704 
004767 


004736 
000207 


166232 
176426 


000206 
001012 
177670 
001032 
000012 
176000 


F8 


-SBTTL GLOBAL SUBROUTINE 
70+ Hes go io iia iii i i eee 


- SET TX AND CONTROL PARAMETERS - 


;* 
;* 
3;* 
3;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
;* 
3* 


This suroutine 


SEQ 0096 


- SETPAR - 


is used in the FIHAVL.TST. 


It initialises the selected line to the following state: 
norte Sa tei IAUTO enabled, LPR:38.4k, 8 bits/char, 2 stop, 
odd parity. 


INPUTS: 
OUTPUTS: 
C 


Ri - Contains number of the line to be initialised. 


LNCTRL and LPR registers for the selected line are destroyed. 


ALLING SEQUENCE: JSR 


COMMENTS : 


PC,SETPAR 


;* SUBORDINATE ROUTINES CALLED: DELAY,WTWLNC,WTWLPR. 


Pitt pth pp pp tppt pitti sii z ii tits t iret r ETE ETE SE TET TS ETT TT TTT TTT TTT TET TTT TT TT SS S| 


SETPAR:: SAVE 


60$: 


JSR 
PC,LINBIT 
RO,RS 


#206 ,RO 

PC ,WTWLNC 
#177670,RO 
PC,WTWLPR 
#10. ,R4 
PC,DELAY 


JSR 
PC 


;SAVE CONTENTS OF GPRS RO THRU RS. 

RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
;GET A BIT MAP FOR THIS LINE. 

;COPY THE LINE BIT MAP. 

sPASS INTERNAL LOPBCK, ENABLE RX AND IAUTO. 
;INITILAISE THE LINE CONTROL REGISTER. 

;PASS THE LPR CONTENTS. 

;SET THE LPR CONTENTS TO 38.4K BAUD. 

PASS DELAY TIME OF 10 MILLI SECONDS. 

;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 


s;RESTORE GPRS. 


PC, a(SP)+ ;RETURN TO PREGOS SUBRT. 


' 
—Jd 


ee ed ee ee cm a ee ee ee —_— —- 


68 
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3715 016900 000207 RTS PC 


SEQ 0097 
GL00A SUBROUTINE - SKPSTS - 
3675 .SBTTL GLOBAL SUBROUTINE - SKPSTS - 
3676 PeMetiiittitiiiittt iti ti tiitiiti titi itittitiitititiiitiiitiiiiiiiiiiittti ttt tt) 
3677 ;* - Skip Selftest Routine - 
3678 7* This subroutine is used to skip the selftest after a DUT reset has been 
3679 i* initiated. It must be entered immediately after setting the DUT Master 
3680 ;* Reset routine or after the execution of a bus reset (because of timing 
3681 ;* considerations). 
3682 i* 
3683 ;* INPUTS: oe - Contains address of the DUT CSR 
aes ;* TXBFCA - Contains address of DUT DMA Buffer Count register. 
;* 
ot ;* OUTPUTS: Skip selftest codes are written to the DUT registers. 
;* 
ote ;* CALLING SEQUENCE: JSR PC,SKPSTS 
7* 
3690 ;* COMMENTS: 
3691 :* 
3692 ;* SUBORDINATE ROUTINES CALLED: DELAY. 
te} Peet ttiitititiitiitiititittittitttittiiitiiiititititiiiiiiiiiiiiitiiiitiiiticy 
6 
3695 015724 SKPSTS:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
015724 004567 166164 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
3696 015730 012704 000012 MOV #10. ,R4 ;PASS DELAY VALUE OF 10 MILLI-SECONDS. 
aed 015734 004767 175760 JSR PC,DELAY ;DELAY FOR 10 MILLI-SECONDS. 
444 ; Write skip self-test code (52525) to all the indexed DUT Registers. 
3701 015740 012701 000050 MOV #NUMLNS!BITOS,R1 ;FORM IND.ADR.REG FIELD (PLUS M.R. BIT) WORD. 
3702 ;THE ABOVE INCLUSION OF THE M.R. BIT IS NECESSARY BECAUSE OF THE 
3703 ; LACK OF A M.R. BIT WRITE LOCK-OUT ON THE DHV11-M. 
3704 015744 012703 052525 MOV #52525,R3 ;INITIALISE THE SKIP SELF-TEST CODE. 
3705 015750 005301 4$: DEC Ri ;SELECT THE NEXT SET OF DEVICE REGISTERS. 
3706 015752 016704 164264 MOV CSRA,R4 ;GET THE ADDRESS OF THE CSR OF THE DUT. 
3707 015756 010124 MOV R1,(R4)+ ;SELECT A BANK OF DUT REGISTERS. 
3708 015760 010324 6$: MOV R3,(R4)+ ;WRITE THE CODE TO A DUT REGISTER. 
3709 015762 020467 164272 CMP R4,TXBFCA ;COMPARE POINTER WITH LAST REGISTER ADDRESS. 
3710 015766 103774 BLO 6$ ;LOOP IF NOT ALL REGS DONE IN THIS BANK. 
3711 015770 032701 000017 BIT #17,R1 ;TEST FOR IND.ADR.REG FIELD DECREMENTED TO O. 
svi 015774 001365 BNE 4$ ;LOOP UNTIL ALL REGISTERS CONTAIN THE CODE. 
1 
3714 015776 60$: PASS ;RESTORE GPRS. 
015776 004736 JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 


— en ee ee ee 


HB 
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3746 016112 000207 RTS PC 


SEQ 0098 
| GLOBAL SUBROUTINE - TSABRT - 
| 3717 .SBTTL GLOBAL SUBROUTINE - TSABRT - 
3718 POMPEII titi ti tit ttt ttt ttt i titi tiititit iti ttt ttt itt tt titi titi tit ttt itt ttt ttt ttT 
3719 ;* - TEST ABORT ROUTINE - 
3720 ;* This subroutine is used when a non-test related error has been found 
3721 ;* during the execution of the current test. 
3722 ;* It is used to inform the operator that the current test has been 
3723 i* aborted. 
3724 ;* 
3725 ;* INPUTS: ERRMSG - Contains the name of the current test. 
3726 ;* ERRNBR - Contains the correct error number. 
313) ;* The remainder of the ERRTBL is correctly initialised. 
;* 
z7¢8 ;* OUTPUTS Messages are reported to the operator. 
;* 
He ;* CALLING SEQUENCE: JSR PC, TSABRT 
;* 
3733 ;* COMMENTS: 
3734 ;* 
3735 ;* SUBORDINATE ROUTINES CALLED: ER1602. 
Le. Pertti it ttti ttt ttt titi titttt ttt tt itt titi ttt t ttt itititittt ti titititiiti titi tty 
3738 016002 TSABRT:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
016002 004567 166106 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT 
3739 016006 012701 016024 MOV #2$,R1 ;PASS ADDRESS OF FIRST MESSAGE TO BE REPORTED. 
3740 016012 012767 011662 166072 MOV #ER1603, ERRBLK ;SET- UP THE ERROR REPORTING ROUTINE. 
3741 016020 ERROR : >>>>> ERROR <<<<<. 
016020 104460 TRAP CSERROR 
3742 016022 000432 BR 60$ ; 
3743 016024 040 116 117 2$: .ASCIZ / NON-RELATED TEST ERROR FOUND DURING TEST EXECUTION/ 
016027 116 055 122 
016032 105 114 101 
016035 124 105 104 
016040 040 124 105 
016043 123 124 040 
016046 105 122 122 
016051 117 122 040 
016054 106 117 125 
016057 116 104 040 
016062 104 125 122 
016065 111 116 107 
016070 040 124 105 
016073 123 124 040 
016076 105 130 105 
016101 103 125 124 
016104 111 117 116 
016107 000 
3744 .EVEN 
3745 016110 60$: PASS ;RESTORE GPRS. 
016110 004736 JSR PC,a(SP)-+ ;RETURN TO PREGOS SUBRT. 


' 
-4 


-— A 


18 
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| 
1 
! SEQ 0099! 
, GLOBAL SUBROUTINE - TXDATP - | 
3748 -SBTTL GLOBAL SUBROUTINE - TXDATP - 
3749 OPM Citi LST ST TT PTT TE tri titi titi titi ttt ttt ttt ttt TT TTT TT TTT TTT TTT TTT TT 
3750 ;* - TRANSMIT DATA PATTERN - 
3751 ;* This subroutine is used in the FIHAVL.TST. 
He ;* It transmits a specified number of data bytes on the specified line. 
;* 
3754 ;* INPUTS: RO - Contains the number of data bytes to TX. | 
3755 :* R1 - Contains line numb on which transmission is to take place. { 
Le ;* BUFBAS to BUFMID contains a 256 byte data pattern. i 
;* 
3758 ;* OUTPUTS: Data is sent out on the specified line. 
3759 ;* Carry set = TX successful. 
3760 :* 
3761 ;* CALLING SEQUENCE: TXDATP 
3762 :* 
3763 ;* COMMENTS: 
3764 ;* 
3765 ;* SUBORDINATE ROUTINES CALLED: DODMA. 
sree PPLE Et Lett tt tt TP PP PP PPP PPT PP Terri t tt it ttt ttt ttt TTT TTT TTT TTT TTT TT TTT TTT TTT 
3768 016114 TXDATP:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
016114 004567 165774 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
3769 016120 010003 MOV RO,R3 ;PASS THE NUMBER OF CHARS TO TX. 
3770 016122 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
3771 016126 004767 175626 JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN. 
3772 016132 60$: PASS ;RESTORE GPRS. 
016132 004736 JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 
3773 016134 000207 RTS PC 
| 
| 
, | 
! 
| | 
‘ } 


ee ee eee 


cf a, 
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016136 
016136 
016142 
016144 
016150 
016154 
016156 
016162 
016166 


016170 
016174 
016176 
016200 


016202 
016204 
016206 
016212 
016214 
016216 
016220 


016222 
016222 
016226 


016230 


004567 
010500 
012701 
016702 
005202 
012703 
016704 
005005 


010477 
105712 
100001 
050105 


030100 
001402 


001363 


010566 


004736 
000207 


165752 


000001 
164102 


000010 
164102 


164046 


000200 


000014 


;* CALLING SEQUENCE: JSR PC, TXDSBL 
xk 
;* COMMENTS: 


;* 
;* SUBORDINATE ROUTINES CALLED: NONE. 
BR ERE EERE EERE EEE E EAE EERE REE EE EERE EEE EEE EEE EEE EEE ERED 


SEQ 0100 

- TXDSBL - 

-SBTTL GLOBAL SUBROUTINE - TXDSBL - 

PeMertiittititittt ttt t ttt i itititititiiiiiiiititiiiiiiiiiitiiiiiititittt ttt tt tt 

:* - Transmitter Disable - 

;* This subroutine is used to disable transmission on selected lines by, 

i* clearing the associated TX.ENABLE bit on the DUT. 

;* 

;* INPUTS: RS - Bit’s set correspond to lines on which to clear TX.ENABLE. 

;* CSRA - Contains the address of the DUT CSR. 

i* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 

;* NUMLNS - Equated to be the maximum number of lines available. 

;* TXAD2A - Contains the address of the TBUFFAD2 register. 

3;* 

;* OUTPUTS: RS - Bit's set indicate the initial states of all TX.ENBLE bits. 

i* TBUFFAD2 - The state of the TX.ENBLE bit may be altered. 

7* The contents of the IND.ADD.REG field in the CSR are destroyed. 

:* 


TXDSBL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT 
MOV R5,RO COPY BIT MAP OF LINES TO DISABLE TRANSMISSION. 
MOV #BITO,R1 ; INITIALIZE THE SELECTED LINE BIT MASK. 
MOV TXAD2A,R2 ;GET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
INC R2 ;GET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
MOV #NUMLNS , R3 ;GET MAXIMUM LINE NUMBER PLUS ONE. 
MOV IESTAT,PR4 ;GET THE STATES OF THE INT ENABLE BITS. 
CLR RS ;LOG POSSIBLE TX DISABLED ON ALL LINES. 
3¢ 
; Select every line in turn, and log the state of each TX.ENABLE bit. 
2s: MOV R4,9CSRA ;WRITE TO DUT CSR TO SELECT LINE REGISTERS. 
TSTB = (R2) ;CHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
BPL 4$ ;SKIP NEXT INSTRUCTION IF TX.ENABLE CLEAR. 
BIS R1,R5 ;LOG TX ENABLE BIT SET FOR SELECTED LINE. 
;* 
; Clear TX.ENBLE on lines that have a corresponding bit set in the tx disable 
; line bit map. 
4$: BIT R1,RO ;CHECK STATE OF DISABLE LINE BIT MAP. 
BEQ 6$ ;BRANCH IF THIS LINE TO REMAIN UNALTERED. 
BICB #BIT7,(R2) ;CLEAR TX.ENABLE BIT ON SELECTED LINE. 
6$: INC R4 ;PREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL R1 ;SHIFT BIT MAP FOR NEXT LINE. 
DEC R3 ;DECREMENT LINE NUMBER. 
BNE 2s ;LOOP TO CHECK NEXT LINE. 
60$: PASS RS ;RESTORE GPRS,EXCEPT 
MOV oe RSSLOT( SP) ;PUT RS IN STACK SLOT. 
JSR C,a(SP)-+ ; RETURN TO PREGOS SUBRT. 


RS - PREVIOUS STATES OF ALL TX.ENABLE BITS. 


ee ee we 
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3852 016232 

016232 
3853 016236 
3854 016240 
3855 016244 
3856 016250 
3857 016252 
3858 016256 
444 016262 


2 
3863 016264 
3864 016270 
3865 016272 
3866 016274 


3871 016276 
3872 016300 
3873 016302 
3874 016306 
3875 016310 
3876 016312 
3877 016314 


3879 016316 


016316 
016322 


| 3882 016324 


004567 
010500 
012701 
016702 
005202 
012703 
016704 
005005 


010477 


050105 


030100 
001402 
152712 
005204 
006301 
005303 
001363 


010566 
004736 


000207 


165656 


000001 
164006 


000010 
164006 


163752 


000200 


000014 


- TXENBL - 
-SBTTL GLOBAL SUBROUTINE - TXENBL - 
POMEL i LiL iTS TTT TPP PT TTT Tre titi ti titi titi ttt t ete ttt ttt TTT TTT TTT TTT TTT TTTTTTTTT Tt 
;* - Transmitter Enable - 
;* This subroutine is used to enable transmission on selected lines by 
i* setting the associated TX.ENABLE bit on the DUT. 
;* 
;* INPUTS: RS - Bit's set correspond to lines on which to set TX.ENABLE. 
;* CSRA - Contains the address of the DUT CSR. 
;* IESTAT - Contains the state of TXIE and RXIE bits in the CSR. 
;* NUMLNS - Equated to be the maximum number of lines available. 
;* TXAD2A - Contains the address of the TBUFFAD2 register. 
;* 
;* OUTPUTS: RS - Bit's set indicate previously disabled lines. 
;* TBUFFAD2 - The state of the TX. ENOLE bit may be altered. 
;* The contents of the IND.ADD.REG field in the CSR are destroyed. 
;* 
;* CALLING SEQUENCE: JSR PC, TXENBL 
;* 
;* COMMENTS: 
;* 
;* SUBORDINATE ROUTINES CALLED: NONE. 
Petit ILI TT ITEP PPP PP rr titi i iti iit ttt i ttt tt tte TTT TTT TT TTT TTT TTT TTT TTT TTTTT TT Tt" 
TXENBL:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV R5S,RO COPY BIT MAP OF "LINES TO ENABLE. 
MOV #BITO,R1 ; INITIALIZE THE SELECTED LINE BIT MASK. 
MOV TXAD2A,R2 ;GET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
INC R2 ;GET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
MOV #NUMLNS ,R3 ;GET MAXIMUM LINE NUMBER. 
MOV IESTAT,R4 ;GET THE STATES OF THE INT ENABLE BITS. 
CLR RS ;CLEAR TX.ENABLE BIT LOG OF DISABLED LINES. 
; Select every line in turn,and log any TX.ENBLE bit that is clear. 
2$: MOV R4,aCSRA ;WRITE TO DUT CSR TO SELECT LINE REGISTERS. 
TSTB = (R2) ;CHECK STATE OF TX.ENABLE BIT ON SELECTED LINE. 
BMI 4$ ;SKIP NEXT INSTRUCTION IF TX.ENABLE SET 
BIS R1,R5 ;LOG TX ENABLE BIT CLEAR FOR SELECTED LINE. 
’ Set TX.ENBLE on lines that have a corresponding bit set in the tx enable 
; line bit map. 
43: BIT R1,RO ;CHECK STATE OF TX.ENABLE LINE BIT MAP. 
BEQ 6$ ;BRANCH IF THIS LINE TO REMAIN UNALTERED. 
BISB #BIT7,(R2) ;ENABLE TRANSMISSION ON SELECTED LINE. 
6$: INC R4 ;PREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL R1 ; SHIFT BIT MAP FOR NEXT LINE. 
DEC R3 ;DECREMENT LINE NUMBER. 
BNE 2s ;LOOP TO CHECK NEXT LINE. 
60$: PASS RS ;RESTORE GPRS,EXCEPT 
MOV R5, RSSLOT(SP) ;PUT RS IN STACK SLOT. 
JSR PC,a(SP)+ ;RETURN TO PREGOS SUBRT. 
:R5 - LINE BIT MAP CORRESPONDING TO THE 
— - ; PREVIOUS LINES THAT WERE DISABLED. 


SEQ 0101 





~- — ee _ —-- — 





L8 


| CVDHBDO DHV11-M FUNC TST PART 2 MACRO Y05.02 Monday 01-Apr-85 07:53 Page 82 


| SEQ 0102 
| GLOBAL SUBROUTINE - TXIEQ - 

3884 . .SBTTL GLOBAL SUBROUTINE - TXIEO - 

3885 OME CE LiLo TT TTT TTT TPT PTT Te Perri rrr iti i tit tt ti ttt tt ttt ttt TTT TTT TTT TTT TTT Te 

3886 ;* - TRANSMITTER INTERRUPT DISABLE - 

ved :* This routine is used to disable transmitter interrupts in the DHV11. 

;* 

8 is INPUTS: NONE. 

3891 mi OUTPUTS: The TX.INT.ENBL bit is cleared in the DUT CSR. 

3892 5 IESTST -contains the updated status of the TX and RX interrupt 

3893 ;* enable bits. 

3894 ;* 

+444 ;* CALLING SEQUENCE: JSR PC, TXIEO 

;* 

3897 ;* COMMENTS: The contents of the indirect address register field in 

+404 i* the DUT CSR are destroyed. 
;* 

3900 ;* SUBORDINATE ROUTINES CALLED: NONE. 

3901 i-- er eae er T°: eke om Woe ee a ee 

3902 016326 010046 TXIEO: : MOV RO, -(SP) ;SAVE CONTENTS OF RO ON THE STACK 

3903 016330 GETPRI -(SP) ; SAVE CURRENT PROCESSOR PRIORITY ON THE STACK. 
016330 104440 TRAP C$GPRI 
016332 010046 MOV RO,-(SP) 

3904 016334 SETPRI #PRIO7 ;IGNORE ANY INTERRUPTS THAT MAY BE GENERAT ED. 
016334 012700 000340 MOV #PRIO7,RO 
016340 104441 TRAP C$SPRI 

3905 016342 042767 177677 163720 BIC 7 bs IESTAT ;CLEAR TX.INT.ENBL art IN IESTAT. 

3906 016350 016777 163714 163664 MOV IESTAT,@CSRA ;DISABLE TX INTERRUPTS. 

3907 016356 SETPRI tse). ;ENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
016356 012600 MOV (SP)+,RO 
016360 104441 TRAP C$SPRI 

3908 016362 012600 MOV (SP)+,RO ;RESTORE RO. 

3909 016364 000207 RTS PC 


ee ee ee ne eee = 
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SEQ 0103 
| GLOBAL SUBROUTINE - UNSDIV - 
3911 -SBTTL GLOBAL SUBROUTINE - UNSDIV - 
3912 OMIT iiititititiiittititiitiiiiiiiiiiiiitiititiiitiiiiriiitiriiiiittititi tt tty 
3913 i* - Unsigned Divide Routine - 
3914 ;* This subroutine is used to divide a 32 bit wretge fi dividend by a 
3915 ;* 16 bit unsigned divisor giving a 16 bit quotien l numbers are 
3916 7* considered to be unsigned. A success flag is not cet on return if 
4484 ;* the quotient was too big to be contained in 16 bit 
;* 
3919 ;* INPUTS: Ri - The divisor, unsigned, 16 bits. 
3920 ;* R2 - Most significant word of the dividend, unsigned, 16 bits. 
3553 ;* R3 - Least significant word of the dividend, unsigned, 16 bits. 
;* 
3923 ;* OUTPUTS: R1 - Quotient, unsigned, 16 bits (177777 if overflow). 
pose :* CARRY - Success flag, set if complete quotient fits in 16 bits. 
;* 
+434 ;* CALLING SEQUENCE: JSR PC,UNSDIV 
;* 
3928 ;* COMMENTS: If the divisor is 0 the quotient is returned as all ones 
44 34 ;* (177777) and the carry is clear regardless of the dividend. 
;* 
3931 ;* SUBORDINATE ROUTINES CALLED: None. 
a Peet itiitititititititiitittitiiititiiiiiiiiitiiitiititiititiiiiiiiiiitiiiti +t 
3934 016366 UNSDIV:: SAVE Tgp CONTENTS OF GPRS RO THRU RS. 
sens 016366 004567 165522 JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
zone ; Check for quotient greater than 16 bits condition. 
3938 016372 010204 ; MOV R2,R4 ;GET MSW OF DIVIDEND FOR SUBTRACT. 
3939 016374 160104 SUB R1,R4 ;SUBTRACT DIVISOR FROM MSW OF DIVIDEND. 
3940 016376 103403 BCS 2$ ;IF IT DION'T GO, WE HAVE QUOTIENT < 16 BITS. 
3941 016400 012701 177777 MOV #-1,R1 ;SET QUOTIENT TO ALL oes (177777), 
oot 016404 000442 BR 60$ ;EXIT WITH CARRY CLEAR 
zeae ; Set up counters and various working GPRs. 
3946 016406 005004 2$: CLR R4 ;CLEAR THE LSW OF THE DIVISOR. 
3947 016410 000241 CLC ;CLEAR CARRY FOR THE SHIFT OF THE DIVISOR. 
3948 016412 006001 ROR Ri ; DIVISOR BY 
3949 016414 006004 ROR R4 ; 2C(UNSIGNED) 
oore 016416 012700 000020 MOV #16. ,RO ;SET UP INITIAL SHIFT COUNT TO 16. 
3338 ; The subtract and shift loop. 
3954 016422 010246 4$: MOV R2,-CSP) ;SAVE MSWORD OF DIVIDEND. 
3955 016424 010346 MOV R3,-(SP) ;SAVE LSWORD OF DIVIDEND. 
3956 016426 160403 SUB R4,R3 ;LSWORD DIVIDEND - fo ay OF DIVISOR. 
3957 016430 005602 SBC Re s;MSWORD DIVIDEND - BORRO 
3958 016432 103402 BCS 6$ ;IF BORROW FROM BORROW SUBTRACT, IT DIDN'T GO. 
3959 016434 160102 SUB R1,R2 ;MSWORD DIVIDEND - MSWORD OF DIVISOR. 
peor 016436 103003 BCC 8$ ;IF NO BORROW, IT WENT, CARRY IS CLEAR. 
3962 ; "tt didn't go, so we shift a 1 into the quotient (complemented later). 
coer ; Carry is set. 
3965 016440 012603 6$: MOV (SP)+,R3 ;RESTORE LSWORD OF DIVIDEND. 
; 3966 016442 012602 MOV (SP)+,R2 s;RESTORE MSWORD OF DIVIDEND. 
| 
| 
| 


a 
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—_— 


016444 


016446 
3 


5 
016450 


016464 


016466 


016474 


90 016476 


94 016500 


00 016506 


016510 
016512 
016512 
016516 


016520 


000401 


012626 


103403 


005205 
001001 
005305 


010501 
000261 


010166 
004736 


000207 


000004 


- UNSDIV - 


10$ 


;GOTO SHIFT 1 INTO THE QUOTIENT. 


3° 
; It went, so we restore the stack and shift a 0 into quotient (will be 
; complemented later). 


8$: MOV 


BCS 
; Round up, 
12$: INC 
BNE 
DEC 
; All done, 
14$: MOV 
SEC 
60$: PASS 


RTS 


the 


extra subtract went. 


(SP)+,(SP)+ 


Carry is clear. 


sPOP THE SAVED DIVIDEND OFF OF THE STACK. 


result of the subtract attempt into the quotient shift reg. 


RS 


;SHIFT NEXT BIT INTO THE INVERTED QUOTIENT. 
sDIVIDE THE 
i DEVISOR BY 

2 (UNSIGNED). 
: COUNT THIS SHIFT AND SUBTRACT. 

LOOP FOR ANOTHER SHIFT & SUB IF NOT DONE. 
;GET QUOTIENT FROM INVERTED QUOTIENT. 


round up or leave quotient alone. 


14$ 
RS 


;CLEAR THE CARRY FOR THE SHIFT OF THE DIVIDEND. 
sMULTIPLY LSWORD OF 1 he 2, MSWORD IS 0. 


;IF CARRY FROM SHIFT, ROUND 
;SUBTRACT DIVISOR FROM DIVIDEND. 
;IF BORROW, DON'T ROUND UP. 


sINCREMENT THE QUOTIENT BY ONE. 
;IF NO OVERFLOW, WE LEAVE THE ROUND UP 
;DON'T LET ROUNDING CAUSE OVERFLOW. 


pass quotient and exit. 


RS,R1 


R1 
MOV 
JSR 


PC 


;PASS QUOTIENT BACK IN Ri. 
sINDICATE NO OVERFLOW. 


sRESTORE GPRS, LEAVE THE A ree INTACT: 
ae eRISLOT (SP) sPUT Ri IN STACK SLOT. 


;R1- i6 BIT, UNSIGNED QuoT IENT, 
;CARRY - SET INDICATES NO OVERFLOW (SUCCESS). 


;RETURN TO PREGOS SUBRT. 


—— 
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4007 .SBTTL GLOBAL SUBROUTINE - WAIBIC - 
4008 SeMeiiiittititii¢ti titi titi ttitiitititiittitt ttt tit itt itt ttt tt ttt tt titi tt tT TT tty 
4009 3* - Wait For Bit Clear Routine - 
4010 ;* This subroutine waits for the specified bit to become clear. If the 
4011 :* specified bit goes to a clear state within the specified time-out 
4012 3* ag @ success indication is returned by this routine. 
4013 ;* he last value which is read looking for the condition is returned to 
a0i5 ;* allow the use of this routine to look for destructive read conditions. 
;* 
4016 3* INPUTS: Ri - Time-out value and bit number indication: 
4017 7* Bits 15 thru 12 - Number of bit to test (range 0 thru 15). 
4018 7* Bits 11 thru 0 - Time-out value in milli-seconds (4095 max). 
4019 ;* 2 - Address of word containing the bit to test. 
4020 :* MSLCNT. 
4021 3;* 
4022 3* OUTPUTS: R2 - The last word which was read to check for the condition. 
r++ 4 3* CARRY - Success flag (CARRY set if bit clr before time-out). 
;* 
4025 ;* CALLING SEQUENCE: MOV #130040,R1 sPASS BIT 11 (13 OCTAL) AND 
4026 :* 32 (40 OCTAL) MS DELAY. 
4027 ;* MOV #LABEL ,R2 FTEST BIT IN WORD AT “LABEL”. 
cnet ;* JSR PC, ,WAIBIC ;WAIT 32 MS FOR BIT 11 TO CLR. 
3% 
aati = COMMENTS: 
4032 a SUBORDINATE ROUTINES CALLED: MSLGET. 
4033 han EEE EEE EREEE EEE SEH EERE EEE ESSERE EERE EERE EREEEEERESEE EEE REESE 
4034 
4035 016522 WAIBIC:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
016522 004567 165366 JSP. R5, PREGOS ;CALL REGISTER SAVE SUBRT. 
4036 016526 010204 MOV R2,R4 ;SET UP THE ADDRESS PARAMETER FOR MSLGET. 
4037 016530 010102 MOV R1,R2 
4038 016532 042701 170000 BIC #170000,R1 ;SEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
4039 016536 042702 007777 BIC #7777,Re ;SEPERATE LINE NUMBER FIELD OF PASSED PARAM. 
4041 016544 006202 ASR R2 ;SHIFT THE LINE NUMBER FIELD INTO THE PROPER 
4042 016546 006202 ASR R22. ; POSITION TO USE IT AS A WORD TABLE OFFSET 
4043 016550 006202 ASR R2 ; FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
4044 016552 016202 002370 MOV BITTBL(R2), R2 GET BIT MAP OF LINE TO TEST FROM TABLE. 
4045 016556 005003 CLR sINDICATE THAT THE BIT SHOULD BE CLR. 
4046 016560 004767 175619 JSR Pc, MSLGET ;WAIT FOR THE BIT TO BE CLR WITHIN TIME-OUT. 
4047 , ; CARRY IS CORRECT UPON MSLGET RETURN. 
4048 016564 010002 MOV RO,R2 ;PASS LAST VALUE READ AS OUTPUT PARAMETER. 
4049 016566 60$: PASS R2 ;RESTORE GPRS, EXCEPT THE FOLLOWING: 
016566 010266 000006 MOV R2,R2SLOT( SP) sPUT R2 IN STACK SLOT. 
016572 004736 JSR PC, a( SP )-+ ;RETURN TO PREGOS SUBRT. 
4050 ; Re - LAST VALUE READ LOOKING FOR CONDITION. 
4051 016574 000207 RTS PC ; CARRY - SUCCESS FLAG (SET IF BIT FOUND CLR). 


4040 016542 000302 SWAB =R2 sPUT LINE NUMBER FIELD IN LSBYTE. 
} 


— ee ee ee 
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016576 
016576 


016632 
016634 


016640 
016642 
016642 
016646 


016650 
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010266 
004736 


000207 


165312 


170000 
007777 


002370 
175534 


000006 


nc cc TEI nEInnnSnnEUnE RE REESE eR a eee 


SEQ 0106 


- WAIBIS - 


.SBTTL GLOBAL SUBROUTINE - WAIBIS - 
PeMettiiiiitiititiitttititttitiiiiiitiititiitititititititiiittiiiitttittt ttt ttt ty 
- Wait For Bit Set Routine - 

This subroutine waits for the specified bit to become set. If the 
specified bit goes to a set state within the specified time-out 

hg @ success indication is returned 7 this routine. 

he last value which is read looking for the condition is returned to 
allow the use of this routine to look for destructive read conditions. 


INPUTS: Rl - Time-out value and bit number indication: 
Bits 15 thru 12 - Number of bit to test (range 0 thru 15). 
Bits 11 thru 0 - Time-out value in milli-seconds (4095 max). 
R2 - Address of word containing the bit to test. 


SER HEHHEHEE EE HEE 


MSLCNT 
OUTPUTS: R2 - The last word which was read to check for the condition. 
CARRY - Success flag (CARRY set if bit set before time-out). 
CALLING SEQUENCE: MOV #130040,R1 ;PASS BIT 11 (13 OCTAL) AND 


32 (40 OCTAL) MS DELAY. 
;TEST BIT IN WORD AT “LABEL”. 
;WAIT 32 MS FOR BIT 11 TO SET. 


MOV #LABEL ,R2 
JSR PC,WAIBIS 


i* COMMENTS : 


- SUBORDINATE ROUTINES CALLED: MSLGET. 
reer rerrrrr Terre rrr Terr erer TTT Tre rer TTT TTT TTT TTT TTT TTT TTT TTT TTT Te Tete 


WAIBIS:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5, PREGOS ;CALL REGISTER SAVE SUBRT. 

ba ote ;SET UP THE ADDRESS PARAMETER FOR MSLGET. 
BIC #170000,R1 ;SEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
BIC #7777,R2 ;SEPERATE LINE NUMBER FIELD OF PASSED PARAM. 
SWAB R2 ;PUT LINE NUMBER FIELD IN LSBYTE. 
ASR R2 ;SHIFT THE LINE NUMBER FIELD INTO THE PROPER 
ASR R2 ; POSITION TO USE IT AS A WORD TABLE OFFSET 
ASR R2 ;__FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
MOV BITTBL(R2),R2  ;GET BIT MAP OF LINE TO TEST FROM TABLE. 
MOV R2,R3 ;INDICATE THAT THE BIT SHOULD BE SET. 


JSR PC,MSLGET ;WAIT FOR THE BIT TO BE SET WITHIN TIME-OUT. 
;_ CARRY IS CORRECT UPON MSLGET RETURN. 
MOV RO,R2 ;PASS LAST VALUE READ AS OUTPUT PARAMETER. 
60$: PASS Re ;RESTORE GPRS, EXCEPT THE FOLLOWING: 
MOV R2,R2SLOT(SP) 3;PUT R2 IN STACK SLOT. 
JSR PC, a(SP )+ s;RETURN TO PREGOS SUBRT. 
; R2 - LAST VALUE READ LOOKING FOR CONDITION. 
RTS PC ; CARRY - SUCCESS FLAG (SET IF BIT FOUND SET). 


D9 
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| 4099 


4118 016652 

016652 
4119 016656 
4120 016662 
4121 016666 
4122 016672 
4123 016674 
4124 016700 
4125 016704 


4127 016706 
016706 


4129 016710 


004567 
012701 
016702 
004767 
103005 
012704 
004767 
000261 


004736 
000207 


165236 
170536 
163354 
177704 


000005 
175014 


SEQ 0107 
- WAITTX - 


-SBTTL GLOBAL SUBROUTINE - WAITTX - 
OMeTITiitititititiititititiitiiititiii tii iiritri tir t irr iii i iri ii itiiittt its 
3* - WAIT FOR TX TO FINISH - 

3* This subroutine is used in the FIHAVL.TST. 

i* It waits for transmission to complete ie TX_ACTION. Then delays 

;* ed 2. Scab remeant to allow time for the last character to get into 

3* the ifo 


- INPUTS: CSRA - Contains the address of the CSR. 
e OUTPUTS: Carry - Set indicates success. 

e CALLING SEQUENCE: JSR PC,WAITTX 

- COMMENTS : 


;* 
;* SUBORDINATE ROUTINES CALLED: DELAY,WAIBIS. 
Fr RRR A EERE EEE EEE EEE EEE EER EEE EERE EERE EEE EERE EERE EERE EERE EER EE EEE 


WAITTX:: SAVE is CONTENTS OF CRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV #170536,R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
MOV CSRA,R2 PASS THE ADDRESS OF THE CSR. 
JSR PC,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
BCC 60$ ;BRANCH IF FIFO EMPTY, ABORT THE TEST. 
MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
JSR PC,DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
SEC ;SET CARRY TO I8NDICATE SUCCESS. 
60$: PASS ;RESTORE GPRS. 
JSR PC,a(SP)+ sRETURN TO PREGOS SUBRT. 


PASS THE CARRY BIT, SET INDICATES SUCCESS. 
RTS PC 


ne ee eee 


i 
{ 
' 
! 


ee ee oe ee wwe 


a a see 
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4154 016712 
016712 


4158 016716 
4159 016722 
4160 016724 
4161 016726 


4165 016732 


4167 016736 
016736 
4168 016740 


GLOBAL SUBROUTINE 


004567 


016701 
010002 
010503 
012704 


004767 


004736 
000207 


165176 


163330 


177777 


174042 


- WTWLNC - 


-SBTTL GLOBAL SUBROUTINE - WTWLNC - 

OME IIIT iit ititititittitiiiiiiiiiiiiiitiiiiitigiiiiiiitiiiiitiitittt ttt ttt tty" 
- Line Control Register Setup Routine - 

This subroutine is used to set the Device Under Test (DUT) Line 

Control Registers (LNCTRL) to the specified state. Only the LNCTRLS 

for the specified lines are altered. 


INPUTS: RO - New line parameters. 
RS - Bit map of lines to be altered. 
CSRA - Contains address of the DUT CSR. 
IESTAT - Contains the current state of the TX and RX interrupt 
enable bits in the CSR. 
LNCTRA - Contains address of the DUT LNCTRL registers. 


LNCTRL - Specified DUT Line Control Registers are altered. 
;* CALLING SEQUENCE: JSR PC ,WTWLNC 
;* COMMENTS: 


;* 
;* SUBORDINATE ROUTINES CALLED: ALTFLDO. 
Sr REAR EEE EERE EERE EEA EREREEEEEEEEE EERE 


WTWLNC:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 


; Set up the parameters for the call to ALTFLD. 


HHH HHH 
oO 

Cc 

al 

v 

Cc 

coal 

wm 


ee ee ee we ee ee oe ee os oe oe oe 


* 


MOV LNCTRA,R1 ;SET UP THE REGISTER ADDRESS PARAMETER. 
MOV RO,Re ;SET UP THE DESIRED REGISTER CONTENTS. 
MOV R5,R3 ;SET UP THE BIT MAP OF LINES TO ALTER. 
MOV #-1,R4 ;SELECT ALL REGISTER BITS TO BE ALTERED. 

;* 

; Call the subroutine which alters the register contents. 

. JSR PC,ALTFLD ;ALTER THE REGISTER CONTENTS. 

60$: PASS ;RESTORE GPRS. 


JSR PC, a(SP)+ 
RTS PC 


;RETURN TO PREGOS SUBRT. 


SEQ 0108 


ee | 


—— ee eee ee 
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4193 016742 
016742 


4197 016746 
4198 016752 
4199 016754 
4200 016756 


4204 016762 
4206 016766 


016766 
4207 016770 


004567 


016701 
010002 
010503 
012704 


004767 


004736 
000207 


165146 


163274 


177777 


174012 


- WTWLPR - 


.SBTTL GLOBAL SUBROUTINE - WTWLPR - 
30+ eo tai oI KO KOR EE 


;* - Line Parameter Register Setup Routine - 

i* This subroutine is used to set the Device Under Test (DUT) Line 

i* Parameter Registers (LPR) to the specified state. Only the LPRs for 
i* the specified lines are altered. 

;* 

;* INPUTS: RO - New line parameters. 

;* R5 - Bit map of lines to be altered. 

;* CSRA - Contains address of the DUT CSR. 

:* IESTAT - Contains the current state of the TX and RX interrupt 
i* enable bits in the CSR. 

i* LPRA - Contains address of the DUT LPR. 

;* 

;* OUTPUTS: LPR - Specified DUT Line Paramter Registers are altered. 

;* 

;* CALLING SEQUENCE: JSR PC ,WTWLPR 

;* 

;* COMMENTS: 


;* SUBORDINATE ROUTINES CALLED: ALTFLD. 
bbb bt nb b ehhh hte ttt ttt ttt ttt TT i TTT i Ptr iti itt i tt itttittt tert tet tee tt 


WTWLPR:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 

; Set up the parameters for the call to ALTFLD. 

, MOV LPRA,R1 ;SET UP THE REGISTER ADDRESS PARAMETER. 
MOV RO,R2 ;SET UP THE DESIRED REGISTER CONTENTS. 
MOV R5,R3 ;SET UP THE BIT MAP OF LINES TO ALTER. 
MOV #-1,R4 ;SELECT ALL REGISTER BITS TO BE ALTERED. 

3? 

; Call the subroutine which alters the register contents. 

: JSR PC,ALTFLD ;ALTER THE REGISTER CONTENTS. 

60$: PASS ;RESTORE GPRS. 


JSR PC,@(SP)-+ 
RTS PC 


sRETURN TO PREGOS SUBRT. 


SEQ 0109 


— —— ee eee oe 


69 
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016772 
016776 
017000 
017004 
017010 
017012 
017016 
017022 
017024 
017032 
017034 
017034 
017036 
017040 


005767 


010046 


104422 
012600 
000002 


- CLKINT - 


-SBTTL INTERRUPT SERVICE ROUTINE 


- CLKINT - 


Foo RRR R ERE RE ERE E EEK E EEE ER ERE ER ER ERR EEE ERE EREREREREREKERERESE 


INPUTS: 


OUTPUTS: 
CALLING SEQUENCE: 


COMMENTS : 


HHRHHKHRHHRHHHHHH HH HH 


This routine is executed CLKHRZ times per second. 
two timer counters down to zero. 


TIMER1 - Timer counter #1. 
TIMER2 - Timer counter #2. 
TIMER3 - Timer counter for call of BREAK macro. 


The 2 counters will not wraparound but will stop at 0. 
allows the detection of a time-out any time after the time-out 
has occurred until the timer counter is set to another value. 


It decrements the 


The 2 timer counters are decremented if they are not zero. 


Put #CLKINT in the clock interrupt vector slot. 
Put the desired time 
either TIMER1 or TIME 
counter to detect its going to 0 on time-out. 


perio (seconds times CLKHRZ) in 
2 and poll the respective timer 


This 


;* SUBORDINATE ROUTINES CALLED: None. 
BRR RR aR RRR TORE ROO EOE EE EE EE EEE EE 


163330 CLKINT:: TST TIMER1 

BEQ 2$ 
163322 DEC TIMER 
163320 2s: TST TIMER2 

BEQ 4$ 
163312 DEC TIMER2 
163310 4$: DEC TIMER3 

‘ BNE 60$ 

163304 163300 MOV BCOUNT , TIMERS 

MOV RO, -(SP) 

BREAK 

MOV (SP)+,RO 

60$: RTI 


CHECK FOR 
;BRANCH TO 
; DECREMENT 
;CHECK FOR 
;BRANCH TO 


TIMER1 AT ZERO. 

LEAVE IT AT ZERO IF IT IS ZERO. 
TIME COUNT. 

TIMER2 AT ZERO. 

LEAVE IT ALONE IF IT'S ALREADY ZERO. 
;DECREMENT TIME COUNT. 

;DECREMENT THE BREAK COUNT. 

;EXIT IF NOT TIME TO CALL BREAK. 

;SET UP TIME TILL NEXT BREAK. 

;SAVE CONTENTS OF RO FROM BREAK MACRO. 
;CHECK FOR OPERATOR CONTROL/C. can 


;RESTORE CONTENTS OF RO. 


C$BRK 


SEQ 0110 


eee reer 


ee ee ee 


H9 
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| GLOBAL TRAP SERVICE ROUTINE 


4270 017042 
4271 017046 
4272 017050 
4273 017054 
4274 017062 


021627 
001402 
000177 
052767 
000002 


013470 


163234 
100000 163230 


- TP4RTN - 


.SBTTL GLOBAL TRAP SERVICE ROUTINE - TP4RTN - 

ITI Titii iti iti titititiitititititiiiiiiiiiiiiiiititiiiiiiiiiiiiiiiititttttt ttt) 
Bus Time-out Trap (004 trap) Service Routine - 

This routine is used during the Device Register Address Access Test. 

It determines if the 004 trap was caused by an “expected” error or 

not by examining the return PC value on the stack. If the trap is 
unexpected, this routine jumps to the normal Diagnostic Supervisor 

004 trap handling routine. 


H 
Zz 
a) 
G 
= 
wm 


SP - Points to the PC where the trap occured. 
ADRPTR - Label at the address where “expected” traps occur. 
TP4FLG - 004 trap flags. 


OUTPUTS: TP4FLG - Bit 15 is set if “expected” trap occured. 
C 


ALLING SEQUENCE: Put address pointed to by TP4RTN in 004 vector. 
Occurence of 004 trap vectors to this routine. 


COMMENTS: ca 004 trap which occurs at an address other than that labeled 
ADRPTR will be handled by the normal 004 trap service routine. 


HRHRKHHHREHENRE HEE EERE H 


;* SUBORDINATE ROUTINES CALLED: None. 
ererrerrrerrr terre rtr errr rrr rrr rr rrr rrr Trt Tt Tt TTT TTT TTT TTT TT TTT TTT TTT 


TP4RTN: : CMP (SP), #ADRPTR ;COMPARE EXPECTED ADR AGAINST TRAP RET PC. 


BEQ 2$ ;IF THEY MATCH, CONTINUE THIS ROUTINE. 

JMP aTP4vEC ;IF_NOT,JUMP TO NORMAL 004 TRAP SERVICE RTN. 
2$: BIS #BIT15,TP4FLG  ;SET THE 004 TRAP OCCURED FLAG. 

RTI ;ALL DONE, GO BACK TO THE TEST. 


SEQ 0111 


i 


ail 


—— Ne re rrerinnnetirneesinnnnennnnnsineennemedimenemnitlitersieinntitesetatntieeetttiemetticeettianttttttt eect ana -_- — —_ — “+ 
1 


19 
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4277 5 5 6 6 96 6 96 6 su i ih uh ib ih sn gg oh uh ub uk ga gd ad gah gu hub su a suk sag go aka uh ak ga a buh sak oa ak sab go ud ak ak sa gb bb ak ss oh bb bo ob 9b 9b 9 gs 
G% 

4278 ; \ 

4279 ; VOHB . RPT 


4281 ; KEK LKLKSLL LK LKL LALLA ALLL SAL LLL LLL K ASKS LAK a 


4285 -SBTTL REPORT CODING SECTION 


3+4 
4288 ; THE REPORT CODING SECTION CONTAINS THE 
aste ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


291 
4292 017064 BGNRPT 
017064 LS$RPT:: 


4293 

4294 017064 EXIT RPT 
000167 -WORD = J$JMP 
000000 -WORD L10014-2-. 


4296 .EVEN 
4298 017070 ENDRPT 


017070 L10014: 
017070 104425 TRAP C$RPT 


+ 
oo 
Pr 
ss 
oo 
oo 
aL. 


_ ee 


JI 
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| 4300 -SBTTL PROTECTION TABLE 

4302 5 55 6 56 $6 $6 9 9 8 i kh tl a kk th hh ll uh kk ok hh 0h wh wh wh wh 


SEQ 0113 


p=) 
Ww 
oS 
w 


4304 i SKL4.P11 
4306 ;KSKSKKKSKS KSA KL LALLA A SASK NN es 


4312 ; TO PROTECT THE LOAD MEDIA. 
4313 te: 


4315 017072 BGNPROT 
017072 L$PROT:: 


6 
4317 017072 
4318 017074 
4319 017076 


177777 
177777 
177777 


-1 ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
-1 ;OFFSET INTO P-TABLE FGR MASSBUS ADDRESS 
-1 ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 


;*¢ 
4311 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
0 
rit} 017100 ENDPROT 
| 
| 
| 


a a A ee er 


IK9 
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SEQ 0114 
/ PROTECTION TABLE 
| 4337 
; | ase 5 5 6 9h gh 96 ih i ih uh uh ub gh bs gk suk gab ga ak sa gu sa gu go ak sa uk ga a ba sa uk uk ge uk akg kg kg a ak sk gs ss 9 6 9 9b 0b gs 
anet ; VOHB . INI 
atet 5 5 96 9h 96 gh hh 6 ih hu gh bg ub gu bg uk gu a gu suk uh sak akg a ga ob sa ku ku su a akg kg sh kg uk uk uk uk ks bk 9 bb 0s ok es, 
4344 
4345 
aaet .SBTTL INITIALIZE SECTION 
;++ 
4348 Pitti iii iitttt ttt ttt tt tit iti titttttt tt ttt titi ttititiiititiitititiitiitit ttt ttt 
4349 ;* This section contains the code which is performed at the beginning of 
4350 ;* each pass or after a continue command. 
<aat ;* This code performs the following actions: 
;* 
4353 ;* Moves the information held in the hardware P-table into the global 
4354 ;* data area. 
4355 ;* 
4356 ttt ttt itt ttt ttt tt ttt ttt titi ttt titi ttittttitittt ttt ttt titi ttt itt ttt iT ttt ttt ttt tf 
4357 ; 4o« 
4358 017100 BGNINIT 
017100 L$INIT:: 
4359 ;SEE IF PROGRAM JUST STARTED, BR IF YES 
4360 017100 READEF #EF.START 
017100 012700 000040 MOV #EF .START,RO 
017104 104447 TRAP CS$REFG 
4361 017106 BCOMPLETE NEWSTA 
017106 103416. BCS NEWSTA 
4362 ;SEE IF PROGRAM JUST RESTARTED, BR IF YES 
4363 017110 READEF #EF.RESTART 
017110 012700 000037 MOV #EF .RESTART,RO 
017114 104447 TRAP CS$REFG 
4364 017116 BCOMPLETE NEWRES 
017116 103556 BCS NEWRES 
4365 ;SEE IF THIS IS A NEW PASS, BR IF YES 
4366 017120 READEF #EF.NEW 
017120 012700 000035 MOV #EF .NEW,RO 
017124 104447 TRAP CS$REFG 
4367 017126 BCOMPLETE NEWPAS 
017126 103555 BCS NEWPAS 
4368 ;SEE IF PROGRAM WAS JUST CONTINUED 
4369 017130 READEF #€F .CONTINUE 
017130 012700 000036 MOV #EF . CONTINUE ,RO 
017134 104447 TRAP CS$REFG 
4370 017136 BNCOMPLETE GETPRM 
017136 103161 BCC GETPRM 
4371 017140 000167 000556 JMP ENDIT 
4372 017144 NEWSTA: 
4373 017144 BRESET ;RESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 
a37e 017144 104433 TRAP C$RESET 
aist ; Set up for Line Time Clock interrupts. 
4377 017146 CLOCK L,R1 ;GET THE CLOCK PARAMETERS. 
017146 012700 000114 MOV #'L,RO 
017152 104462 TRAP CS$CLCK 
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ee we ee 


| INITIALIZE SECTION 


017154 
017156 


017272 
017300 


017306 


017350 


017352 


017356 
017364 
017372 
017376 
017402 
017406 
017412 


010001 


0 3 
012767 
012746 


010067 


012700 
104441 


016767 
012767 


005067 


000402 


004767 


016767 
012767 
005067 
005067 
012700 
016701 
005067 


163134 


163122 
000024 
000021 
000300 
016772 
163062 
000003 


000010 
163046 


163050 
000240 


160506 
017042 


163000 
000100 
002314 
162766 
174122 
162750 


162754 


173604 


160422 
017042 


162726 


L9 


SEQ 0115 
MOV RO,R1 
MOV (R1)+,CLKCSR ;STORE CLOCK CSR ADDRESS. 
MOV (R1)+,CLKBRL ;STORE CLOCK BUS REQ INT LEVEL. 
MOV (R1)+,CLKVEC ; STORE CLOCK INTERRUPT VECTOR. 
MOV (R1)+,CLKHRZ ;STORE CLOCK FREQUENCY. 
000062 CMP CLKHRZ, #50. ;TEST FOR SOHZ LINE FREQUENCY. 
BNE 2$ ;BRANCH IF CLOCK IS NOT SOHZ. 
163122 nn iain ; INDICATE 20MS PER CLOCK TICK. 
163112 2$: MOV #17. ,MSTICK sINDICATE 17 MS PER CLOCK TICK. 
4$: SETVEC CLKVEC, #CLKINT, #PRI06 ; INITIALIZE CLOCK INTERRUPT VECTOR. 
MOV #PRI06,-(SP) 
MOV @CLIKINT, -(SP) 
MOV CLKVEC, -(SP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
MOV CLKHRZ,RO were THE _ COUNT 
ASR RO ; TO ie" BREAK 
MOV RO, BCOUNT ; EVERY 1/2 SECOND. 
SETPRI #PRIOS ; ALLOW clock INTERRUPTS DISABLE OTHERS. 
MOV #PRIOS,RO 
TRAP C$SPRI 
; ; Enable the Line Time Clock (LTC) checking to make sure that the CSR 
; is accessable. 
; First set up to catch any 004 traps which occur: 
163010 MOV 4, TP4VEC ;SAVE THE EXISTING 004 TRAP VECTOR. 
160476 MOV #TP4RIN,4 ;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
; Enable LTC checking for 004 trap in case CSR is not there. 
CLR TP4FLG oa THE 004 TRAP FLAG. 
162774 MOV #BIT6,WORD1 T UP TO SET BIT6 OF THE LTC CSR. 
MOV HW ORDi, RO ‘oF UP WORD1 AS THE CKTRAP MOVE SOURCE. 
MOV CLKCSR, Rs ;SET UP LTC CSR AS DESTINATION FOR CKTRAP MOVE. 
JSR PC, CKTRAP ;MOVE AND CHECK FOR TRAP. 
160442 MOV TP4VEC,4 ;RESTORE THE NORMAL — TRAP VECTOR. 
BCS 6$ ;IF NO TRAP, LTC IS THERE SO CONTINUE. 
CLR CLKHRZ ;CLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 
BR 8$ ;BYPASS THE FOLLOWING CALIBRATION PROCEDURES. 
; Calibrate the DELAY routine milli-second delay count value. 
_ JSR PC,CALMSL 
thee for Memmory Management present on this machine. 
; If MEM MGT is present, disable it. 
162724 8s: MOV 4, TP4VEC ;SAVE THE EXISTING 004 TRAP VECTOR. 
160412 MOV #TP4RITN,4 ;SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
CLR TP4FLG ;CLEAR THE 004 TRAP FLAG. 
CLR WORD1 ; PREPARE TO CLEAR THE MEM MGT SRO REGISTER. 
MOV #WORD1 , RO ;SELECT CLEARED WORD AS CKTRAP RTN SOURCE. 
MOV MMSRO,R1 ; SELECT MEM MGT SRO REGISTER AS DESTINATION. 
CLR MMPRES s; INDICATE NO MEM MGT PRESENT IN CASE IT ISN'T. 





ee re ae ee ee eee = 
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INITIALIZE SECTION 


017416 
017422 
017426 
017434 
017436 
017444 
017450 


017462 


017470 
017474 
017476 


017502 


017514 
017516 


017576 


017602 


017612 
017616 


005067 
004767 
016767 
103003 
012767 
005067 
000167 
104433 
005067 


012767 


005267 
001002 
005367 


005267 
026767 
002362 


016700 
104442 
010001 


103401 
000764 


012167 


112167 


016701 


012702 


162724 
174030 
162656 
000001 


162626 
000006 


162614 
177777 


162602 
162574 


162532 
162526 


162516 


162504 
162464 


000377 
162442 


162440 
162435 


162434 


000007 
002244 





160350 
162700 


162550 


162276 





mm a ee  - — ee C 


CLR MMENAB ; INDICATE MEM MGT IS NOT ENABLED. 
JSR PC,CKTRAP ;CLEAR THE MEM MCT SRO REG AND CHECK FOR TRAP. 
MOV TP4VEC,4 ;RESTORE THE NORMAL 004 TRAP VECTOR. 
BCC 10$ ;SKIP INDICATING MEM MGT gf ed IF IT ISN'T. 
MOV #1,MMPRES ; INDICATE THAT MEM MGT IS PRESENT. 
10$: CLR PASCNT ;CLR COUNTER USED IN REPORTING ROM VERSION #. 
JMP NEWPAS ; SKIP AROUND THE BUS RESET, IT'S BEEN DONE. 
NEWRES: BRESET ;RESET THE BUS TO PREVENT ILLEGAL OR aay tt 
—_— CLR PASCNT ;CLR COUNTER USED IN REPORTING ROM VERSION #. 
” MOV #-1,UNITN ;RESET LOGICAL DEVICE TO -1 
; Increment the pass counter, correct for any overflow. 
; This counter is used in the Rom version test. 
INC PASCNT ; INCREMENT THE PASS COUNTER. 
BNE GETPRM ;BRANCH IF WE HAVE NOT YET! OVERFLOWED. 
DEC PASCNT ;SET PASS COUNT TO 177777 OCTAL. 
Le HARDWARE PARAMETERS FOR THIS UNIT. 
‘INC — -UNITN ;INCREMENT LOGICAL DEVICE NUMBER 
CMP UNITN,L$UNIT ;SEE IF MAXIMUM UNIT NO. EXCEEDED 
BGE NEWPAS :BR IF YES 
GPHARD UNITN,R1 ;GET P-TABLE POINTER INTO Ri 
MOV UNITN,RO 
TRAP C$GPHRD 
MOV RO,R1 
BCOMPLETE 30$ ;BR IF DEVICE AVAILABLE os ons 
BR GETPRM ;SKIP THIS DEVICE 
;*eeeeeee4%% HARDWARE PARAMETER MOVING CODE eeeeuccaeccecece 
30$: “MOV he a ; STORE 


DHV11-M CSR ADDRESS IN DEV. Fi -ADDRESS TABLE 


MOV (R1)+,R ;GET THE RX INTERRUPT VECTOR ADDR 

MOV RELRXVECA ;STORE RX INT VECTOR ADDRESS 

ADD #4,R2 ;CALCULATE TX INTERRUPT VECTOR ADDRESS. 
MOV R2, TXVECA ;STORE TX INT VECTOR ADDRESS. 

MOV (R1)+,ACTLNS : STORE DHV11-M ACTIVE LINE BIT MAP 

MOV #MAPLNS ,R2 ;GET THE r Ay FOR ALL 


LINES. 
COM Re ;GET A BIT MAP OF NON-EXISTANT LINES. 
BIC R2,ACTLNS ;CLEAR NON- EXISTANT LINES FROM ACTLNS. 
MOVB (R1)+,LOPBCK ;STORE DHV11-M LOOPBACK MODE 
MOVB (R1)+,BRLEVL ;STORE DHV11-M INTERUPT BUS REQUEST LEVEL 


i CALCULTATE DEVICE REGISTER ADDRESSES,AND PUT THEM IN THE 
; DEVICE REGISTER ADDRESS TABLE. 


MOV CSRA,R1 ;COPY CSR ADDRESS 

INC R1 + INCREMENT CSR ADDRESS 
INC R1 OPY BY 2. 

MOV #7,R3 SSET UP REGISTER COUNT 


MOV #RBUF A, R2 ;GET LOCATION WHERE RBUF ADDRESS GOES IN TABLE 





SEQ 0116 


a a a ee ee 


! 
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4478 017622 
4479 017624 

4480 017626 
4481 017630 
4482 017632 


ris 017722 
4504 017722 


4508 017726 
017726 
017732 


4512 017734 
4513 017740 
4514 017742 
4515 017750 


6 
4517 017750 
017750 
017750 


010122 
01 


020001 
103775 


032767 


012777 


104411 
000000 


002444 
002644 
162572 


000020 162340 
162120 000001 


162336 


162336 


000240 


162364 
000100 162346 


OS 
a en ee 


SEQ 0117 
12$: MOV R1,(R2)+ ;STORE REGISTER ADDRESS IN TABLE 
INC R1 HINCREMENT REGISTER ADDRESS 
INC Ri ; BY 2,FOR THE NEXT DEVICE REGISTER. 
DEC R3 ;DECREMENT REGISTER COUNT 
BNE 12$ ;LOOP IF NOT DONE 


3¢ 
; Initialise the BMP code queue. 


MOV #BMPCOB ,RO ;GET THE START ADDRESS OF THE QUEUE. 
MOV #BMPCQE ,R1 ;GET THE END ADDRESS OF THE QUEUE. 
MOV RO, BMPCQP ;SET THE POINTER TO THE START OF THE QUEUE. 
14$: CLR (RO)+ ;CLEAR OUT THE CONTENTS OF THE QUEUE. 
CMP RO,R1 sCHECK IF END OF QUEUE HAS BEEN REACHED. 
BLO 14$ ;LOOP IF NOT ALL DONE. 


;¢ 
; Report the Unit number if the software P-table question was answered YES, 
; and the maximum unit number is greater than 1. 


BIT #BIT4, OPTION sCHECK IF THE QUESTION WAS ANSWERED YES. 
BEQ 16$ s;SKIP REPORTING UNIT NUMBER IF IT IS DISABLED. 
CMP L$UNIT, #1 ;CHECK MAXIMUM NUMBER OF UNITS SELECTED. 


BLE 1 ;00 NOT REPORT UNIT NUMBER IF MAX NUMBER < 
PRINTF @MFUNIT,UNITN ;REPORT UNIT NUMBER. 
MOV UNITN, -(SP) 


MOV @MFUNIT , -( SP) 


MOV SP, 
TRAP CSPNTF 


ADD 6, SP 
16$: 
ENDIT: CLR CTRLCF ;CLR THE CTRL-C TEST ABORT FLAG. 
; Set the processor priority to allow LTC interrupts but not others. 
: SETPRI #PRIOS ;SET PROCESSOR PRIORITY TO S. 
MOV @PRIOS,RO 


TRAP —-C$SPRI 
S ~—s nate ilae View Clock If ene 16 exoilebic. 


TST CLKHRZ sCHECK FOR A LTC BEING PRESENT. 
BEQ 18$ ;LTC PRESENT? NO, SKIP LTC ENABLE. 
“ MOV @BIT6,ACLKCSR ;YES, ENABLE THE LTC. 
ENDINIT 
L10016: 
TRAP CS$INIT 
TNUM == 0 sINITIALIZE THE ASSEMBLER TEST NUMBER VARIABLE. 


_ a AE SRS SRR SS Sa 


a B10 
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SEQ 0118 
INITIALIZE SECTION 
aa58 SSCKCMKLSSKKCCSH RK KKSGKKKAHACKAKKAKSACSSKKRKAKAKAGRKASLAG SACK RASTA SGKKKAGRSSKKGMKASKBKAKEHH 
; 

4855 : VOHB .ATD 
aes ; MSNKALLLLA ASSL ASSAL AAAS ASSL SSAA AAS ASKS S A nneeess 
4529 
4530 -SBTTL AUTODROP SECTION 
4531 
an 
4534 "7 THIS CODE Ny EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
4535 ; THE "ADR" FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
4536 ; SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
4537 ; DROPPED FROM TESTING. 
4538 3-- 
4539 
4540 017752 BGNAUTO 

017752 L$AUTO:: 
4541 
4548 
4549 017752 ENDAUTO 

017752 L10017: 


017752 104461 TRAP C$AUTO 


i 


C10 
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| 


— 


017754 
017754 


017754 
017760 
017762 
017762 
017764 
017764 
017770 
017772 
017776 
020000 
020004 


020004 
020004 
020006 


020010 
020010 
020010 


AUTODROP SECTION 


005767 
001401 


104433 


012700 
104441 
005767 
001402 
005077 


104432 
000002 


104412 


162304 


000240 
162326 
162312 


SEQ 0119 


5 5 6 95 96 9 9 i gl i lb kk ll uu hl uk hh hk oh hh gh gh wh wd hg 


: VOHB . CUC 


; MKNASALA SALA AA ALASKA LSA ASSN ess 


-SBTTL CLEANUP CODING SECTION 


* THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 
L$CLEAN: : 
TST CTRLCF ;DID WE GET HERE BY CTRL-C FROM TEST? 
BEQ 2$ ;CTRL-C FROM TEST? NO, SKIP BUS RESET. 
BRESET ;YES, CLR ANY DMAS OR OUTSTANDING INTERRUPTS. 
TRAP CSRESET 
2s: SETPRI #PRIOS ;ALLOW LTC INTERRUPTS, DISALLOW OTHERS. 
MOV #PRIOS,RO 
TRAP C$SPRI 
TST CLKHRZ ;SEE IF THE CLOCK IS ON 
BEQ 3$ ;IF NOT GO ON 
- CLR aCLKCSR ;STOP THE CLOCK 
EXIT CLN 
TRAP CSEXIT 
-WORD L10020-. 
-EVEN 
ENDCLN 


L10020: 
TRAP C$CLEAN 


~witedy sete 


D10 
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— CODING SECTION 


4621 


4622 
4631 


4632 
4633 


4634 
4635 


4636 
4637 
4638 


020012 
020012 


020012 
020012 
020014 
020020 
020024 
020026 
020030 


020034 
020034 


020116 
020116 
020116 


010046 
012746 
012746 
010600 
104417 
062706 


104453 


020040 
000002 


000006 


5 5 96 06 0 i 9 lu uk ll ul ku uh uk hh oh wh 0 hh gh wh wd eo 


; VDHB . DRP 


; SSNSKSKLASASA SALAS A LASS ASASASALASLLSSA SAAS AS AAAS 


-SBTTL DROP UNIT SECTION 


+ THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


BGNDU 
L$DU:: 
PRINTF #DROP,RO ;REPORT UNIT THAT HAS BEEN a 
MOV 
MOV 
MOV 
TRAP 
ADD 
EXIT DU 
WORD 
WORD 
ot DROP: -ASCIZ/#A UNIT#SD6%A DROPPED FROM FURTHER TESTING.#N/ 
104 
101 
122 
120 
040 
Li7 
106 
124 
122 
105 
111 
056 
000 
EVEN 
ENDDU 
L10021: 
TRAP 


nn ES we ee ee 


SEQ 0120 


RO, -(SP) 


J$JMP 
L10021-2-. 


CsduU 


a ee eee - 


F10 


-CVDHBDO DHV11-M FUNC TST PART 2 MACRO YO5.02 Monday 01-Apr-85 07:53 Page 97 
DROP UNIT SECTION 


! 
' 


4640 
4641 
4642 
4643 


020120 
020120 


020120 
020120 
020122 


020124 
020124 
020124 


000167 
000000 


104452 


; MLSSSKASAKAASKASSAAASA AAS AAS KSLA SSAA SSAA AAAS SSSA eens 


; VOHB . ADD 


7 


4 


SEQ 0121 


; MEN SKSKLA SASK ASAS ASKS ASKS A SKA LA ASKS A SKS KSA AAS 


-SBTTL ADD UNIT SECTION 


;¢¢ 
; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 


; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 


; TO THE TEST CYCLE. 


BGNAU 


EXIT AU 


-EVEN 
ENDAU 


L$AU:: 
. WORD 
. WORD 
L10022: 
TRAP 


J$JMP 


L10022-2-. 


C$AU 


——— 


en ee ee ee 


a ee eee ee 


F10 
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HARDWARE TEST 


4690 020126 
020126 


4692 020126 
4693 020134 


4697 020142 
4698 020150 
4699 020156 


4704 020160 


4710 020162 
4711 020166 
4712 020172 
4713 020176 
4714 020202 

020204 
4716 020210 
4717 020216 
4718 020222 
4719 020224 
4720 020230 
4721 020234 
4722 020236 
4723 020242 


4727 020244 
4728 020250 
4729 020256 
4730 020262 


| 
4681 
4682 
| 4731 020266 


000001 
012767 
012767 


016767 
012767 
005005 


005004 


005067 
016700 
012701 


000440 


012702 
016767 
012700 
012701 
004767 


~_ 


- ADRA - 


000001 
177777 


157636 
017042 


162124 
162050 
020406 
173254 


100001 
000017 
000164 


162012 
173222 


100002 


000010 
161766 
020404 
020406 
173164 


162132 
162122 


162140 
157626 


000170 


000126 


.SBTTL HARDWARE TEST - ADRA - 
PITTI TTT TTT TTT TTT TTT TTT TTT LTT TET TELE 
- REGISTER ADDRESS TEST - 


This test verifies that the Q-bus can read and write to the DHV1i1 
device registers. If the DHV11 does not respond to the access 
attempts (If the DHV11 is at the —— address, for example) the 
004 bus time-out trap is detected by this routine and an error 

is reported. 


SERRE EERE REE EER EEE EEE EERE EEE EKER EEE EEE EERE EEE ERE EE EEE ERE RAKE ERE ERE EEE EER ERE EE 


BGNTST 11 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM SET UP THE TEST NUMBER. 1 
MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
; Set up to catch any 004 traps which occur: 
: MOV 4, TP4VEC ;SAVE THE EXISTING 004 TRAP VECTOR. 
MOV #TP4RIN,4 ;SET 004 TRAP VECTOR TO OUR SERVICE RIN ADR. 
CLR RS ;CLEAR THE ERROR FLAGS. 
;* 
; Set up for the initial iteration of the test loop: 
‘ CLR = R4 ;CLEAR THE LINE COUNTER. 
¥ Here begins the loop to test the wegiopere for a lin 
; First test the CSR and set the IND.ADR.REG cf. A. R) field. 
2$: CLR  -TP4FLG ;CLEAR THE 004 TRAP FLAG. 
MOV CSRA,RO ;SET 4 CSR AS THE CKTRAP MOVE SOURCE. 
MOV #52$,R1 ;SET UP DESTINATION LOCATION FOR CKTRAP MOVE. 
JSR PC,CKTRAP ;MOVE AND CHECK FOR TRAP. 
BCS 4$ ;IF NO TRAP, BYPASS ERROR. 
BIS #100001 ,R5 ;SET FATAL READ ERROR FLAGS. 
4$: BIC #17,52$ ;CLEAR THE I.A.R FIELD OF THE CSR DATA. 
BIS R4,52$ ;OR IN THE LINE COUNTER TO THE I.A.R FIELD. 
MOV R1,RO ;USE OLD DESTINATION FOR SOURCE OF CKTRAP MOVE. 
MOV CSRA,R1 ;SET UP CSR AS THE CKTRAP MOVE DESTINATION. 
JSR PC, CKTRAP sMOVE AND CHECK FOR TRAP. 
BCS 6$ ;IF NO TRAP, BYPASS ERROR. 
BIS #100002 ,R5 ;SET FATAL WRITE ERROR FLAGS. 
BR 40$ ;EXIT AND REPORT FATAL ERROR. 
; Now, we test each register for this line. 
6$ MOV #10,R2 ;INIT REGISTER COUNTER TO 8. 
MOV CSRA,50$ ; INITIALIZE THE REGISTER POINTER. 
$ MOV #50$,RO ;SET UP REGISTER AS THE SOURCE FOR CKTRAP MOVE. 
MOV #52$,R1 ;SET UP LOCAL STORAGE AS THE DES FOR CKTRAP. 
JSR PC, CKTRAP ; PERFORM THE MOVE, CHECK FOR TRAP. 





SEQ 0122 


ee ee ee 


G10 
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| 
| 
{ 


HARDWARE TEST 


4732 020272 
4733 020274 
4734 020300 
4735 020302 
4736 020306 
4737 020312 
4738 020314 
4739 020320 
4740 020324 
4741 020330 
4742 020332 
4743 

Biba 

4745 


020334 
020336 
020342 


020344 
020352 
020354 


020356 
020356 
020360 
020362 
020364 


020366 


020414 


103402 
052705 
010100 
012701 
004767 
103402 
052705 
005267 
005267 
005302 
001351 


005204 
020427 
002707 


016767 
005705 
100015 


104455 
000145 
003473 
011320 


016700 
104451 
005067 


104444 
000402 


000000 
000000 
005067 


104401 


- ADRA - 


100001 


020404 
173144 


100002 
000060 
000054 


000010 


161740 


161646 
161664 


161650 


157432 


BCS 10$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
BIS #100001,R5 ;SET FATAL READ ERROR FLAGS. 
10$: MOV R1,RO ;USE OLD DEST AS SRC FOR CKTRAP MOVE. 
MOV #50$,R1 ;SET UP REGISTER AS THE DEST oie CKTRAP MOVE. 
JSR PC,CKTRAP ; PERFORM THE MOVE, CHECK FOR TRA 
BCS 12$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
BIS #100002 ,R5 ;SET FATAL WRITE ERROR FLAGS. 
12$: INC 50$ ; INCREMENT THE REGISTER 
INC 50$ ; POINTER BY 2. 
DEC R2 ;COUNT THE REGISTER. 
BNE 8$ ;LOOP TO TEST THE NEXT REGISTER ADDRESS. 
3¢ 
; Now we set up to test the next line, or to exit if we are done. 
INC R4 s INCREMENT THE LINE COUNTER. 
CMP R4, #NUMLNS ;COMPARE LINE COUNTER AGAINST NUMBER OF LINES. 
BLT 2$ ;LOOP TO TEST THE NEXT LINE IF WE'RE NOT DONE. 
; Dene checking device register addresses. 
; Report any errors and exit. 
40$: MOV TP4VEC,4 ;RESTORE THE NORMAL 004 TRAP VECTOR. 
TST RS ;CHECK THE ERROR FLAGS. 
BPL 60$ ;EXIT ROUTINE IF NO ERRORS. 
; REPORT "DEVICE REGISTER ACCESS ERRORS” 
ERRDF 101,€M0103,ERO0101; >>>>> ERROR #101 <<<<<, 
TRAP CS$ERDF 
-WORD 101 
-WORD €&M0103 
-WORD €ERO101 
DODU UNITN ;DROP THIS UNIT FROM FUTHER TESTING. 
MOV UNITN,RO 
7 TRAP C$D0DU 
CLR CTRLCF s;INDICATE NO CTRL-C ABORT FROM TEST. 
DOCLN ;ABORT THIS SUB PASS. 
i TRAP C$DCLN 
BR 60$ ; - 
;* 
; Local storage. 
50$: -WORD 0O ;STORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
52$: -WORD 0 ;STORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
60$: earet CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10023: 


TRAP CSETST 


SEQ 0123 


es 


H10 
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| HARDWARE TEST 


4773 
4774 


020416 
020416 


020416 
020424 
020432 
020440 
020446 
020454 


020462 
020466 


020470 


020520 


020524 
020530 
020532 
020540 
020542 
020544 
020546 
020552 


000002 
012767 
012767 
012767 
012767 
012767 
012767 


004767 
103141 


004767 


016705 
012700 
004767 
012700 
004767 
004767 


016705 
005001 
012767 
000241 
006005 
103106 
004767 
103107 


- DMASTA - 


000002 
177777 
000001 
007641 
005774 
012572 


173020 


173520 


161534 
000204 
176202 
177670 
176222 
175506 


161504 
007642 


174262 


161642 
161632 
163444 
163440 
163434 
163430 


163346 





.SBTTL HARDWARE TEST - DMASTA - 
Ft RAKE KEE EERE KEKE KEKE EEKEEEKES 
;* - DMA Start Bit Test - 


;* This test verifies that the DMA_START bit in the DUT's Line control 
;* registers will initiate DMA transmission on the selected line. 

:* This test is performed in internal loopback, on all active lines. 
;* 


— REE EEE KEKE KEE EEE ERE REE EEE EERE EE EER EKER EEE ERE REE EREEE EEA EERE KEEEE 
BGNTST 


T2:: 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (40) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 

MOV #4001. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM4001,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 

MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


;+ 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 

; This subroutine reports error >>>>> 4001 <<<<<, 


: JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCC 50$ sRESET FAILURE?, ABORT THIS TEST. 


JSR PC, INDATP ;INITIALSE THE 256 BYTE DATA PATTERN. 


; Set internal loopback,enable receiver functions on all active lines. 
; Set LPR on all lines to 38.4k baud, 8 bits per character, odd parity, 
; 2 stop bits. 

; Enable transmitters on all active lines. 


MOV ACTLNS ,RS ;PASS THE ACTIVE LINE BIT MAP. 

MOV #204 ,RO PASS THE LNCTRiL CONTENTS. 

JSR PC ,WTWLNC sINITIALISE THE LNCTRL REGISTERS. 

MOV #177670 ,RO ;PASS THE LPR CONTENTS. 

JSR PC,WTWLPR sINITIALSE THE LPR REGISTERS ON ALL LINES. 
JSR PC, TXENBL s;ENABLE TRANSMITTERS ON ALL LINES. 


3¢ 
; Set-up outer loop to test the DMA_START bit on all active lines. 
MOV ACTLNS,RS ;GET THE ACTIVE LINE BIT MAP. 


CLR R1 ;CLEAR THE LINE NUMBER COUNTER. 
2$: MOV #4002.,ERRNBR ;SET THE ERROR NUMBER TO 4002. 
CLC ;CLEAR THE CARRY BIT PRIOR TO SHIFTING BIT MAP. 
ROR RS ;SHIFT THE BIT MAP INTO THE CARRY BIT. 
BCC 14$ ;D0 NOT TEST THE LINE IF IT IS INACTIVE. 
JSR PC,PUFIFO ;PURGE THE FIFO. 
BCC 50$ ;GO REPORT ERROR IF FIFO WILL NOT CLEAR. 


; Perform DMA_START bit testing on each line individually. 

; Test each DMA_START bit before TX'ing data pattern, report error if set. 
; Set DMA_START bit on LUT, verify it is set, report error if clear. 

; Wait for DMA to complete. 

; Verify DMA_START bit is clear, report error if set. 

; Verify correct number of chars were received, report error if < expected. 


SEQ 0124 


a ee ee ee 


110 
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SEQ 0125 
| HARDWARE TEST - DMASTA - 
4829 020554 005267 163326 INC ERRNBR ;SET ERROR NUMBER TO 4003. 
4830 020560 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
4831 020564 012703 000144 MOV #100. ,R3 ;PASS THE LENGTH OF THE a PATTERN. 
4832 020570 004767 173164 JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN 
ante 020574 103067 BCC 12$ :GO REPORT ERROR IF DMA _START BIT SET. 
;¢ 
4835 ; Test the state of the DMA_START bit on the line under test. 
ass? Report error if DMA_START bit is clear. 
4838 020576 005267 163304 INC ERRNBR ; INCREMENT ERROR NUMBER TO 4004. 
4839 020602 010177 161434 MOV R1i,aCSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
4840 020606 105777 161444 TSTB @TXAD2A ;TEST THE STATE OF THE DMA_START BIT. 
4643 020612 100060 BPL 12$ ;GO REPORT ERROR IF BIT IS CLEAR. 
;* 
aoaa ; Wait for DMA transmission to complete. 
4845 020614 005267 163266 4$: INC ERRNBR ; INCREMENT ERROR NUMBER TO 4005. 
4846 020620 010103 MOV R1,R3 ;SAVE THE LINE NUMBER. 
4847 020622 012701 170226 MOV #170226, Ri ;TEST BIT 15, TIMEOUT OF 150 MILLI SECS. 
4848 020626 016702 161410 MOV CSRA,R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST. 
4849 020632 004767 175740 JSR PC, WAIBIS ;WAIT FOR DMA TO COMPLETE. 
4850 020636 103045 BCC 10$ :GO REPORT ERROR IF TIMEOUT OCCURRED. 
4851 020640 012704 000005 MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
4852 020644 004767 173050 JSR PC,DELAY ;WAIT FOR CHAR TO BE RECEIVED AND PROCESSED. 
aan 020650 010301 Rees R3, ;RESTORE THE CURRENT LINE NUMBER. 
4855 ; “feet the state of the DMA_START bit on the line under test. 
4056 Report error if DMA_START bit is set. 
4858 020652 005267 163230 INC ERRNBR ; INCREMENT ERROR NUMBER TO 4006. 
4859 020656 010177 161360 MOV R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
4860 020662 105777 161370 TSTB a@TXAD2A ;TEST THE STATE OF THE DMA_START BIT. 
aes 020666 100432 BMI 12$ :G0 REPORT ERROR IF BIT IS STILL SET. 
6 3+ 
4863 ; Verify the number of chars received = number of chars expected. 
4864 Report error if count is incorrect. 
4865 ; If more than 128 BMP codes are found then report error and exit test. 
4866 - 
4867 020670 005003 CLR R3 ;CLEAR THE READ COUNTER. 
4868 020672 012704 000200 MOV #128. ,R4 ;SET UP MAX BMP CODE READ COUNT. 
4869 020676 012767 007647 163202 6$: MOV #4007. ,ERRNBR SET ERROR NUMBER TO 4007. 
4870 020704 017702 161334 MOV ARBUFA,R2 ;READ THE CHARACTER FROM THE FIFO. 
4871 020710 100021 BPL 12$ ;GO REPORT ERROR IF FIFO EMPTY TOO SOON. 
4872 020712 012700 170301 MOV #170301,RO ;SET-UP BIT MASK OF A BMP CODE. 
4873 020716 04020y BIC »RO ;TRY TO CLEAR THE BMP CODE MASK. 
4874 020720 001007 BNE 8$ ; BRANCH IF NOT A BMP CODE. 
4875 020722 005267 13160 INC ERRNBR ; INCREMENT ERROR NUMBER TO 4008. 
4876 020726 004767 174612 JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 
4877 020732 005304 DEC R4 ;DECREMENT MAX BMP CODE READ COUNT. 
4878 020734 001416 BEQ 50$ ;GO REPORT ERROR IF TOO MANY BMP CODES FOUND. 
4879 020736 000757 BR 6$ ;D0 NOT COUNT THE BMP CODE AS A VALID CHAR. 
4880 020740 005203 8$: INC R3 ;COUNT THIS CHARACTER. 
4881 020742 020327 000144 CMP R3,#100 ;HAVE WE RECIEVED 100 CHARACTERS?. 
4882 020746 002753 BLT 6$ ;LOOP UNTIL 100 (NON-BMP) CHARS ARE READ. 
4883 020750 000404 BR 14$ ;SKIP AROUND THE ERROR REPORT. 
i 
' 


-— a ee 
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! SEQ 0126 
; HARDWARE TEST - DMASTA - 

40° ; Report error, skip further testing on this line. 

aes 020752 010301 10$: y MOV R3,R1 sRESTORE THE CURRENT LINE NUMBER. 

4890 020754 012702 006017 12$: MOV #EM4002 ,R2 ;PASS THE ERROR MESSAGE TO BE REPORTED. 

4891 ; “DMA_START BIT BAD ON LINE nn”. 

4892 020760 ERROR ; >>>>> ERROR <<<<<, 

4893 020760 104460 TRAP CSERROR 

4894 020762 005201 14$: INC R1 s INCREMENT THE LINE NUMBER COUN 

4895 020764 005705 TST RS ARE THERE ANY MORE ACTIVE CONES” * TEST?. 

4896 020766 001261 BNE 2s SYES; BRANCH TO TEST THE NEXT LINE. 

pods 020770 000402 BR 60$ :NO; EXIT THIS TEST. 

4899 020772 004767 175004 50$: JSR PC, TSABRT ;REPORT TEST ABORTED. NON-TEST RELATED ERROR. 

oot 020776 005067 161262 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 

4902 021002 ENDTST 

021002 L10024: 


021002 104401 TRAP CSETST 


aa 


a 
. 


K10 
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4959 021152 032777 000001 161072 BIT #BITO,@LNCTRA ;TEST THE STATE OF THE DMA_ABORT BIT. 


SEQ 0127 
| HARDWARE TEST - DMABRT - e 

4904 .SBTTL HARDWARE TEST - DMABRT - 
4905 OOM Titi iiitittttttt ttt tii tititiitti titi titi titi titiiiititittttt ttt ttt tet Tt tt 
4906 ;* - DMA Abort/Restart Test - 
4907 ;* This test verifies that each DMA_ABORT bit will correctly halt 
4908 ;* a DMA transmission, and return a TX_ACTION. 
4909 ;* It will also vectrt that the aborted DMA transmission can be resummed, 
4910 ;* and thet a TX_ACTION is returned upon completion. 
+i] ;* This test is performed in internal loopback, on all active lines. 

;* 
4913 Peet ttt ttit tt titi ttt tti ttt ttt t titi tttttititt ttt itt tt itit ttt titt ttt it ttt ttt. tf 
4914 021004 BGNTST 

021004 T3:: 

4915 000003 TNUM == TNUM « 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
4916 021004 012767 000003 161254 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (41) 
4917 021012 012767 177777 161244 MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 
4918 021020 012767 000001 163056 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
4919 021026 012767 010005 163052 MOV #4101. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
4920 021034 012767 006053 163046 MOV #EM4101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
rte 021042 012767 012572 163042 MOV #ER9101,ERRBLK ; SELECT THE CORRECT ERROR REPORTING ROUTINE. 

;* 
4923 ; Reset the DUT to a known state, remove the status codes from the fifo. 
4924 ; Clear TX and RX interrupt enable bits in the CSR. 
rine ; This subroutine reports error >>>>> 4101 <<<<<, 
4927 021050 004767 172432 ; JSR PC,CLNRST ;RESET THE DHV1i-M, REPORT ANY ERRORS FOUND. 
Hs 34 021054 103160 BCC 60$ ;RESET FAILURE?, ABORT THIS TEST. 
rbd oy 021056 004767 173132 JSR PC, INDATP ;INITIALISE 256 BYTE DATA PATTERN. 

3° 
4932 ; Set internal loopback,enable receiver functions on all active lines. 
4933 ; Set LPR on all lines to 38.4k baud, 8 bits per character, odd parity, 
4934 ; 2 stop bits. 
pias ; Enable transmitters on all active lines. 
4937 021062 016705 161146 ; MOV ACTLNS,RS ;PASS THE ACTIVE LINE BIT MAP. 
4938 021066 012700 000204 MOV #204 ,RO ;PASS THE LNCTRL CONTENTS. 
4939 021072 004767 175614 JSR PC ,WTWLNC sINITIALISE THE LNCTRL REGISTERS. 
4940 021076 012700 177670 MOV #177670,RO ;PASS THE LPR CONTENTS. 
4941 021102 004767 175634 JSR PC,WTWLPR sINITIALSE THE LPR REGISTERS ON ALL LINES. 
rH 021106 004767 175120 JSR PC, TXENBL ; ENABLE TRANSMITTERS ON ALL LINES. 
= ; Perform DMA_ABORT bit testing on each individual (active) line. 
4946 021112 016705 161116 : MOV ACTLNS,RS ;GET THE ACTIVE LINE BIT MAP. 
4947 021116 005001 CLR Ri ;CLEAR THE LINE NUMBER COUNTER. 
4948 021120 012767 010006 162760 2$: MOV #4102. ,ERRNBR ;SET THE ERROR NUMBER TO 4102. 
4949 021126 000241 CLC ;CLEAR THE CARRY BIT PRIOR TO SHIFTING BIT MAP. 
4950 021130 006005 ROR RS ;SHIFT THE BIT MAP INTO THE CARRY BIT. 
4951 021132 103123 BCC 10¢ ;D0 a. TEST THE LINE IF IT IS INACTIVE. 
4952 021134 004767 173674 JSR PC,PUFIFO ;PURGE THE FIFO. 
roe 3 021140 103124 BCC 50$ ;GO REPORT ERROR IF FIFO WILL NOT CLEAR. 
rots ; Check the DMA_ABORT bit before enabling DMA, report error if set. 
4957 021142 005267 162740 : INC ERRNBR ; INCREMENT ERROR NUMBER TO 4103. 
4958 021146 010177 161070 MOV R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 

} 
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| HARDWARE TEST 


4960 021160 
49 


4969 021202 


4973 021204 
4974 021210 
4975 021214 
4976 021220 


9 
4980 021226 
4981 021232 
4982 021234 
4983 021240 
4984 021244 
4985 021250 
4986 021252 


4990 021254 
4991 021260 


4993 021264 
4994 021270 
4995 021274 


4999 021276 
5000 021304 


-- ee ee ee ee 


001105 


005267 


103103 


010177 
012704 
004767 
052777 


005267 
010103 
012701 
016702 
004767 
103050 
010301 


005267 
012702 


010177 
105777 
100441 


042777 
052777 


005267 
010103 


- DMABRT - 


162720 
002704 
000400 
172556 


161032 
000062 
172500 
000001 


162654 


170012 
160776 
175326 


162626 
006132 


160752 
160762 


000001 
000200 


162570 


170536 
160712 
175242 


000002 
172352 


SEQ 0128 
BNE 6$ ;GO REPORT ERROR IF BIT IS SET. 
% Enable DMA TX on selected line, wait for DMA to TX approx 1/4 of data. 
; Abort the DMA transmission. Wait for TX_ACTION to be returned. 
a INC ERRNBR ;SET ERROR NUMBER TO 4104. 
MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA git eg TX. 
MOV #256. ,R3 ;PASS THE LENGTH OF THE = PATTERN 
JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN 
BCC 50$ :G0 REPORT ERROR IF THERE ARE TX PROBLEMS. 
;¢ 
; Wait for DMA to transmit 1/4 of the data before aborting. 
" MOV R1,@CSRA sSELECT THE LINE CURRENTLY UNDER TEST. 
MOV #50. ,R4 PASS THE DELAY TIME OF 40 MILLI SECONDS. 
JSR PC DELAY SWAIT FOR APPROX 1/4 OF DATA TO BE TX'D. 
161024 BIS #BITO,@LNCTRA ; ABORT THE DMA TRANSMISSION. 
3* 
; Wait for TX_ACTION to be returned, report error if time-out occurs. 
"INC ERRNBR ; INCREMENT ay NUMBER TO 4105. 
MOV R1i,R3 ;SAVE THE LINE NUMBER. 
MOV #170012,R1 ;TEST BIT 15, TIMEOUT OF 10 MILLI SECS. 
MOV CSRA,R2 ‘PASS THE ADDRESS a THE REGISTER TO TEST. 
JSR PC, WAIBIS ;WAIT FOR DMA TO COMPLETE. 
BCC 4$ ;GO REPORT ERROR IF TIMEOUT ay 
MOV R3,R1 ;RESTORE THE CURRENT LINE NUMBER 
;¢ 
; Verify DMA_START bit clear, report error if set. 
; INC ERRNBR ; INCREMENT ERROR NUMBER TO 4106. 
MOV #E£M4103,R2 ; SELECT MESSAGE TO BE REPORTED. 
; “DMA_START BIT FOUND SET AFTER oe Panatienil 
MOV R1,@CSRA SELECT THE LINE CURRENTLY UNDER TEST 
TSTB a@TXAD2A ;TEST THE STATE OF THE DMA_ _ BIT. 
BMI 8$ ;G0 REPORT ERROR IF IT IS SET 
3¢ 
; Resume DMA transmission by clearing DMA_ABORT and setting DMA_START. 
160746 ; BIC #BITO,@LNCTRA ;CLEAR THE DMA_ABORT BIT. 
160744 BIS #BIT7,@TXAD2A ;SET THE DMA_START BIT. 
;* 
; Wait for DMA transmission to complete. 
"INC ERRNBR ; INCREMENT ERROR NUMBER TO 4107. 
MOV R1,R3 ;SAVE THE LINE NUMBER 
MOV #170536, Ri pee BIT 15, TIMEOUT “OF 350 MILLI SECS. 
MOV CSRA,R2 te THE ADDRESS OF THE REGISTER TO TEST. 
JSR PC, WAIBIS WAIT FOR DMA TO COMPLETE. 
BCC 4$ ‘G0 REPORT ERROR IF TIMEOUT OCCURRED. 
MOV #2,R ;PASS TIME-OUT OF 2 MILLI SECS. 
JSR PC DELAY ;WAIT FOR CHAR TO BE RECEIVED _ PROCESSED. 


MOV R3,R1 sRESTORE THE CURRENT LINE NUMBER 


7° 
; Test the state of the DMA_ABORT bit on the line under test. 
; Report error if DMA_ABORT bit is set. 


am ae - eC -_— —- — 


Neen nee ee ne eee rent nnn nnnnrnnn nnn ennnnetIereemeeeeeereeeeneene iene -_— — 


M10 
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SEQ 0129 
| HARDWARE TEST - DMABRT - 7 
5017 021350 005267 162532 INC —_ERRNBR INCREMENT ERROR NUMBER TO 4108. 
5018 021354 010177 160662 MOV _R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
5019 021360 032777 000001 160664 BIT  #BITO,@LNCTRA ;TEST THE STATE OF THE DMA_ABORT BIT. 
5020 021366 001002 BNE 6$ ;GO REPORT ERROR IF BIT IS SET. 
9021 021370 000404 BR 10$ ;BRANCH TO CHECK FOR ANY MORE LINES TO TEST. 
aos3 ; Report error, skip further testing on this line. 
3025 021372 010301 4$: "MOV -R3,R1 ;RESTORE THE CURRENT LINE NUMBER. 
5027 021374 012702 006076 6$: MOV  #€M4102,R2 ;PASS THE ERROR MESSAGE TO BE REPORTED. 
5028 ; "DMA_ABORT BIT BAD ON LINE nn". 
5029 021400 8$: ERROR : >>>>> ERROR <<<<<, 
ae 021400 104460 TRAP  CSERROR 
goes ; ‘Verify all active lines have been tested. 
5033 021402 005201 ios: “INC = R1 ; INCREMENT THE LINE NUMBER COUNTER. 
5034 021404 005705 TST RS ;ARE THERE ANY MORE ACTIVE LINES TO TEST?. 
5035 021406 001244 BNE 23 iYES; BRANCH TO TEST THE NEXT LINE. 
5036 021410 000402 BR 60$ ;NO; EXIT THIS TEST. 
5038 021412 004767 174364 50$: JSR PC, TSABRT ;REPORT TEST ABORTED. NON-TEST RELATED ERROR. 
5039 021416 005067 160642 60$: CLR = CTRLCF ;INDICATE THAT WE ARE NOT WITHIN A TEST. 
021422 L10025: 


021422 104401 TRAP CSETST 
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5054 021424 


5064 021476 


5070 021504 
5071 021510 
sors 021512 


rod 021516 


2 
5083 021522 
84 


5098 021602 


126727 


012767 


004767 
103402 
000167 


004767 


016705 


00 
016701 


- OAUTOI - 


160606 
000516 


000004 
177777 
000001 
011445 
006216 
012572 


171776 
000440 


171330 


175170 


000002 


160620 
160610 
162422 
162416 
162412 
162406 


N10 


-SBTTL HARDWARE TEST - OAUTOI - 
OPTI ITI iii i titi tt iti tii irri rrr rrr irri tri irri iii iri iit iiiiiiiiiiii titi) 
3* - OAUTO BIT INACTIVE TEST - 
3;* 
;* This test verifies that the DUT’s OAUTO function behaves correctly 
;* when inactive, ie OAUTO bit clear. 
;* This test will only execute if staggered loopback mode is selected. 
;* The special staggered loopback connector must be fitted. 
;* 
§—-REEEREREEEEREEE SERRE SEER ES SEES EERE ESEEEEESEERESES ERASERS ERERE ERE ES EEEE SS 
BGNTST 
CMPB =6LOPBCK, #2 ;CHECK MODE SELECTED. 
BEQ +6 300 NOT EXIT IF STAGGERD LOPBCK MODE SELECTED. 
JMP 60$ ;EXIT THIS TEST. 


TNUM == TNUM + 1 nu te THE ASSEMBLY TIME TEST COUNTER. 
STNUM ;SET UP THE TEST NUMBER. (49) 

MOV -1, CTRLCF FINDICATE THAT WE ARE IN A TEST. 

MOV 1, ERRTYP ;SET ERROR TYPE AS yi IN ERROR TABLE. 

MOV #4901. ,ERRNBR SSET ERROR NUMBER TO 4901. 


MOV #EM4901,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


;* 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 

; This subroutine reports error >>>>> 4901 <<<<<, 


JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS . +6 ;00 NOT EXIT IF RESET WAS SUCCESSFUL. 
JMP 60$ ;EXIT THIS TEST. 

3? 

; Set-up the associated TX/RX line number tables. 

, JSR PC, ASLNTL sINITIALISE THE ASSOCIATED TX/RX TABLES. 


;* 

; Set external loopback, disable OAUTO and enable receiver on all active lines. 
; get Rang ell lines to 38.4k baud, 8 bits per character, odd parity, 

; its. 

; Bese transmitters on all lines. 

ge 


MOV ACTLNS,RS sPASS THE ACTIVE LINE BIT MAP. 

MUV #4,RO ;PASS THE LNCTRL CONTENTS. 

JSR PC, WTWLNC SINITIALISE THE LNCTRL REGISTERS. 

MOV @MAPLNS ,RS ;PASS BIT MAP OF ALL LINES. 

MOV se La RO ;PASS THE LPR CONTENTS. 

JSR PC,WTWLPR sINITIALSE THE LPR REGISTERS ON ALL LINES. 

JSR PC, TXENBL sENABLE TRANSMITTERS ON ALL LINES. 
; : Set up outer loop for testing active lines in both line groups. 
id 

MOV #100000 ,R3 ;SET-UP LOOP CONTROL FLAG. 

MOV ACTLNS RS ;GET THE ACTIVE LINE BIT MAP. 

BIC LGRP2M,RS , sREMOVE LINES IN GROUP 2. 
2$: MOV RS,45$ ;SAVE THE CURRENT LINE GROUP. 

CLR 40$ ;CLEAR THE LINE roy COUNTER. 
4$: MOV 40$,R1 ;COPY THE LINE NUMBER 


SEQ 0130 


eee 


HARDWARE TEST 
5099 021606 


5100 021610 
5101 021612 


06 021614 


5113 021644 


6 
5117 021646 
Et 021654 


ace 021710 


2 
5133 021714 


5140 021742 
021742 


5142 021744 
5143 021750 
5144 021752 


000241 
006005 
103054 


012767 


012702 


104460 
000437 


116177 
012777 


012702 
104460 
005267 


005705 
001313 


016705 


016701 
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- OAUTOI - 
CLC ;CLEAR CARRY BIT PRIOR TO SHIFTING BIT MAP. 
ROR RS ;SHIFT ACTIVE LINE BIT MAP INTO CARRY BIT. 
BCC 8$ ;SKIP TESTING THIS LINE IF IT IS INACTIVE. 
i+ 
; Test the state of the OAUTO bit on the sine, vides test. 
; Report error if it is found set, and skip “\ ‘ar testing of that line. | 
011446 162264 ; MOV #4902. , ERRNBR ;SET THE ERROR NUMBER TO 4902. 
160414 MOV R1,aCSRA ;SELECT THE LINE TO BE TESTED. | 
000020 160416 BIT #BIT4,3LNCTRA ;TEST THE STATE OF THE OAUTO BIT. 
BEQ 6$ ;SKIP ERROR REPORT IF OAUTO BIT IS CLEAR. 
006250 MOV #EM4902 ,R2 ;PASS THE ERROR MESSAGE. 
; “OAUTO BIT BAD ON LINE nn“ 
ERROR : >>>>> ERROR #4902 <<<<<, 
TRAP CSERROR 
BR 8$ ;SKIP FURTHER TESTING OF THIS LINE. 
; Transmit the XOFF (ASCII 0C3) on the associated line. 
004044 160366 6%: " MOvB TXRLNB(R1),9CSRA ;SELECT THE ASSOCIATED TX LINE. 
100023 160362 MOV #100023,@TXCHA ;TRANSMIT THE XOFF CHARACTER TO THE LUT. 
; Wait for transmission to complete. 
162220 "INC ERRNBR s INCREMENT ERROR NUMBER TO 4903. 
170012 MOV #170012,R1 ;TEST BIT 15, TIMEOUT OF 10 MILLI SECS. 
160344 MOV CSRA,R2 ee THE ADDRESS OF THE REGISTER TO TEST. 
174674 v3 PC, WAIBIS T FOR DMA TO COMPLETE. 
BCC 50$ ABORT TEST IF TIMEOUT OCCURRED. 
000005 MOV #5,R4 ;PASS TIME-OUT OF 5 MILLI SECS. 
172004 JSR PC ,DELAY ;WAIT FOR CHAR TO BE RECEIVED AND PROCESSED. 
; Test the state of the TX_ENABLE bit on the line under test. 
; Report error if TX_ENABLE bit is clear. 
162166 "INC ERRNBR ; INCREMENT ERROR NUMBER TO 4904. 
000222 MOV 40$,R1 ;GET THE NUMBER OF THE LINE TEST. 
160312 MOV R1,aCSRA :SELECT THE LINE CURRENTLY UNDER TEST. 
160322 TST @TXAD2A ;TEST THE STATE OF THE TX_ENABLE BIT. 
BMI 8$ ;SKIP ERROR REPORT IF BIT IS SET. 
006250 MOV #EM4902 ,R2 ;PASS THE MESSAGE TO BE REPORTED. 
; “OAUTO BIT BAD ON LINE nn". 
ERROR : >>>>> ERROR #4904 «<<<, 
TRAP CSERROR 
000176 8$: INC 40$ ; INCREMENT THE LINE NUMBER, 
TST RS ;CHECK IF THERE ARE ANY MORE LINES TO TEST. 
BNE 4$ 3 
; Disable transmitters on the selected lines in the current line group. 
000170 ‘ =o MOV 45$,R5 ;RESTORE THE CURRENT LINE ACTIVE LINE GROUP. | 
174152 JSR PC, TXDSBL ;DISABLE TRANSMITTERS ON THE SELECTED Lanes. 
000160 MOV 45$,R5 ;GET THE CURRENT ACTIVE LiNE GROUP AGAIN | 
000152. —C««y CLR 40$ ;CLEAR THE LINE COUNTER. 
011451 162104 10$: MOV #4905. ,ERRNBR ;SET ERROR NUMBER TO 4905. | 
000140 MOV 40$,R1 ;COPY THE LINE NUMBER. | 
| 
| 





| HARDWARE TEST 


022006 
022010 
022012 


022014 


000241 
006005 
103035 


116177 
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SEQ 0132 
- OAUTOI - 
CLC ;CLEAR CARRY BIT PRIOR TO SHIFTING BIT MAP. 
ROR RS ;SHIFT ACTIVE LINE BIT MAP INTO CARRY BIT. 
BCC 12$ ;SKIP TESTING THIS LINE IF IT IS INACTIVE. 
;* 
; Transmit the XON (ASCII DC1) on the associated line. 
004044 160220 ; MOVB TXRLNBCR1),@CSRA ;SELECT THE ASSOCIATED TX LINE. 
100021 160214 MOV #100021,@TXCHA ;TRANSMIT THE XON CHARACTER TO THE LUT. 


022022 


022030 
022034 
022040 
022044 
022046 
022052 


022114 


022116 


022146 
022150 
022152 
022156 


022162 
022162 
022162 


012777 


012701 


012702 


104460 


005267 
005705 
001327 


; Wait for transmission to complete. 
170012 MOV #170012,R1 ;TEST BIT 15, TIMEOUT OF 10 MILLI SECS. 


160202 MOV CSRA,R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST. 
174532 JSR at WAIBIS ;WAIT FOR DMA TO COMPLETE. 
BCC 50$ ;ABORT TEST IF TIMEOUT OCCURRED. 
000005 MOV #5,R ;PASS TIME-OUT OF 5 MILLI SECS. 
171642 JSR PC! DELAY s;WAIT FOR CHAR TO BE RECEIVED AND PROCESSED. 


: Test the state of the TX_ENABLE bit on the line under test. 
; Report error if TX_ENABLE bit is set. 


162024 INC ERRNBR ; INCREMENT ERROR NUMBER TO 4906. 
000060 MOV 40$,R1 ;GET THE NUMBER OF THE LINE UNDER TEST. 
160150 MOV R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
160160 TST @TXAD2A ;TEST THE STATE OF THE TX_ENABLE BIT. 
BPL 12$ ;SKIP ERROR REPORT IF BIT IS CLEAR. 
006250 MOV #EM4902 ,R2 PASS THE MESSAGE TO BE REPORTED. 


; "OAUTO BIT BAD ON LINE nn”. 


ERROR ; >>>>> ERROR #4906 <<<<<, 
TRAP CSERROR 
000034 12$: INC 40$ ; INCREMENT THE LINE NUMBER, 
mi aie CHECK IF THERE ARE ANY MORE LINES TO TEST. 


3° 

; Check loop control flag to determine if both sets of lines have been tested 
; If this is the fist time around, re-enable TX on all lines, generate active 
; bit map for second line group. 


TST R3 sHAVE BOTH LINE GROUPS BEEN TESTED?. 
BEQ 60$ ;YES; THEN EXIT THIS TEST 
CLR R3 ;NO; CLEAR THE LOOP CONTROL FLAG, 
000377 MOV #MAPLNS ,RS ;PASS THE BIT MAP OF ALL AVAILABLE LINE. 
174076 JSR PC, TXENBL ;RE-ENABLE TRANSMISSION ON ALL LINES. 
160074 MOV ACTLNS,RS ;GET THE ACTIVE LINE BIT MAP. 
160126 BIC LGRP1M,R5 sREMOVE ALL ACTIVE ae a GROUP 1. 
BR es ;ONCE MORE AROUND AND WE ARE DONE. 
40$: -WORD 0 ;STORAGE FOR CURRENT LINE NUMBER. 
45$: -WORD 0O ;STORAGE FOR CURRENT ACTIVE LINE BIT MAP. 
173624 50$: JSR PC, TSABRT sREPORT TEST ABORTED. NON-TEST RELATED ERROR. 
160102 60$: CLR CTRLCF ;INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10026: 
TRAP CSETST 


a a _--oooOo— > 


mn ee ee eC 
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HARDWARE TEST 


022164 
022164 
022164 
022172 
022174 


022200 
022206 
022214 
022222 
022230 
022236 


022244 
022250 
022252 


022256 


022262 


022312 


022316 
022322 
022326 
022332 
022336 


126727 


012767 


004767 
103402 
000167 


004767 


016705 


016705 


- OAUTOI - 


160046 
000516 
000005 


012572 


171236 
000440- 


170570 


157746 
000024 
174414 
000377 
177670 
174430 
173714 


100000 
157706 
157742 
000352 
000344 


000002 


160060 
160050 
161662 
161656 
161652 
161646 


Dil 


SEQ 0133 


-SBTTL HARDWARE TEST - OAUTOA - 
SORE RRR REE EERE EERE REE EEE ER EER EERE REE E AREER AREER EERE EERE EEE EEE ERED 
:* - OAUTO BIT ACTIVE TEST - 


7* 
:* This test verifies that the DUT's OAUTO function behaves correctly 
fA when active, ie OAUTO bit asserted high. 

;* This test will only execute if the staggered loopback mode is selected. 
3* The special staggered loopback connector must be fitted. 

he 


ERE ERE EER EKER EEE EEE EEE EEE ERE ERE REE ERE ERE EEE EE EEE EEE EE EE 


BGNTST 13 

CMPB- = LOPBCK,, #2 ;CHECK MODE SELECTED. 

BEQ . +6 ;00 NOT EXIT IF STAGGERD LOPBCK MODE SELECTED. 
JMP 60$ s;EXIT THIS TEST. 

TNUM == TNUM + 1 s; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM ;SET UP _ THE TEST NUMBER. (50) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


“OV #5001.,ERRNBR ;SET ERROR NUMBER TO 5001. 
MOV #EMSO01,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 
; This subroutine reports error >>>>> SOO] <<<<<. 


- ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 


JSR PC,CLNRST 
BCS +6 300 NOT EXIT IF RESET WAS SUCCESSFUL. 


JMP 60$ ;EXIT THIS TEST. 
; Set-up the associated TX/RX line number tables. 
: JSR PC, ASLNTL ;INITIALISE THE ASSOCIATED TX/RX TABLES. 


; Set external loopback,enable OAUTO and receiver functions on all active lines 
; tay all lines to 38.4k baud, 8 bits per character, odd parity, 
; s its. 
3 Rowe transmitters on all lines. 
MOV ACTLNS,RS ;PASS THE ACTIVE LINE BIT MAP. 


MOV #24,RO ;PASS THE LNCTRL CONTENTS. 
JSR PC, WTWLNC ;INITIALISE THE LNCTRL REGISTERS. 
MOV #MAPLNS ,R5 ;PASS BIT MAP OF ALL LINES. 
MOV #177670,RO ;PASS THE LPR CONTENTS. 
JSR PC,WTWLPR ;INITIALSE THE LPR REGISTERS ON ALL LINES. 
JSR PC, TXENBL ;ENABLE TRANSMITTERS ON ALL LINES. 
; Set up outer loop for testing active lines in both line groups. 
MOV #100000 ,R3 ;SET-UP LOOP CONTROL FLAG. 
MOV ACTLNS,RS ;GET THE ACTIVE LINE BIT MAP. 
BIC LGRP2M,R5 ;REMOVE LINES IN GROUP 2. 
2s: MOV RS,45$ ;SAVE THE CURRENT LINE GROUP. 
CLR 40$ ;CLEAR THE LINE NUMBER COUNTER. 


— 


-CVDHBDO DHV11-M FUNC TST PART 2 MACRO Y0S.02 Monday 01-Apr-85 07:53 Page 102-1 
HARDWARE TEST ; 


5264 022342 
5265 022346 
5266 022350 
5267 022352 


S275 022374 
5276 022376 


5278 022402 
022402 
5279 022404 


2 
5283 022406 
aces 022414 


5288 022422 


5293 022444 
5294 022450 


5299 022454 
5300 022460 
5301 022464 
5302 022470 
5303 022474 
5304 022476 


5306 022502 
022502 


5308 022504 
5309 022510 
5310 022512 


5314 022514 


5318 022534 


016701 
000241 
006005 
103054 


012767 


012702 


104460 
000437 


116177 
012777 


005267 
012701 
016702 
004767 
103123 
012704 
004767 


012767 


- OAUTOA - 
000340 4$: MOV 40$,R1 ;COPY THE LINE NUMBER 
CLC ;CLEAR CARRY BIT PRIOR TO SHIFTING BIT MAP. 
ROR RS ;SHIFT ACTIVE LINE BIT MAP INTO CARRY BIT. 
BCC 8$ ;SKIP TESTING THIS LINE IF IT IS INACTIVE. 
: Test the state of the OAUTO bit on the line under test. 
; Report error if it is found clear, and skip further testing of that line. 
011612 161524 : MOV #5002. ,ERRNBR ;SET THE ERROR NUMBER TO 5002. 
157654 MOV Rl, aCSRA ;SELECT THE LINE TO BE TESTED. 
000020 157656 BIT aB1T4, @LNCTRA ;TEST THE STATE OF THE OAUTO BIT 
BNE 6$ ;SKIP ERROR REPORT IF OAUTO BIT IS SET. 
006250 MOV #EM4902 ,R2 ;PASS THE ERROR MESSAGE. 
; “OAUTO BIT BAD ON LINE nn” 
ERROR : >>>>> ERROR #5002 <<<<<, 
TRAP “C$ERROR 
BR 8$ ;SKIP FURTHER TESTING OF THIS LINE. 
; Transmit the XOFF (ASCII DC3) on the associated line. 
004044 157626 6$: "Move TXRLNB(R1),9CSRA ;SELECT THE ASSOCIATED TX LINE. 
100023 157622 MOV #100023, @TXCHA ; TRANSMIT THE XOFF CHARACTER TO THE LUT. 
; Wait for transmission to complete. 
161460 "INC ERRNBR eT Ort ERROR NUMBER TO 5003. 
170012 MOV #170012,R1 TEST BIT 15, TIMEOUT OF 10 MILLI SECS. 
157604 MOV CSRA,R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST. 
174134 JSR PC, WAIBIS SWAIT FOR DMA TO COMPLETE. 
BCC 50$ ;ABORT TEST IF TIMEOUT OCCURRED. 
000005 MOV #5,R4 ;PASS TIME-OUT OF S MILLI SECS. 
171244 JSR PC DELAY ;WAIT FOR CHAR TO BE RECEIVED AND PROCESSED. 
; Test the state of the TX_ENABLE bit on the line under test. 
; Report error if TX_ENABLE bit is set. 
161426 "INC ERRNBR ; INCREMENT ERROR NUMBER TO 5004. 
000222 MOV 40$,R1 ;GET THE NUMBER OF THE LINE TEST. 
157552 MOV R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
157562 TST @TXAD2A ;TEST THE STATE OF THE TX_ENABLE BIT. 
BPL 8$ ;SKIP ERROR REPORT IF BIT IS CLEAR. 
006250 MOV #EM4902 ,R2 ;PASS THE MESSAGE TO BE REPORTED. 
; “OAUTO BIT BAD ON LINE nn" 
ERROR F >>>>> ERROR #5004 << 
TRAP ** CSERROR 
000176 8$: INC 40$ s INCREMENT THE LINE NUMBER, 
TST R5 ; CHECK IF THERE ARE ANY MORE LINES TO TEST. 
BNE 4s 3 
; Disable transmitters on the selected lines in the current line group. 
000170 : MOV 45$,R5 ;RESTORE THE CURRENT LINE ACTIVE LINE GROUP. 
173412 JSR PC, TXDSBL ;DISABLE TRANSMITTERS ON ‘HE SELECTED LINES. 
000160 MOV 45$,R5 ;GET THE CURRENT LINE ACTIVE LINE GROUP AGAIN. 
000152 CLR 40$ ;CLEAR THE LINE COUNTER 
011615 161344 10$: MOV #5005. ,ERRNBR ;SET ERROR NUMBER TO 500S. 





SEQ 0134 


ee ee wes we 


Fil 
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022542 
022546 
022550 
022552 


022554 
022562 


022570 
022574 
022600 
022604 
022606 
022612 


022616 
02262e 
022626 
022632 
022636 
022640 


072644 
0.2644 


022646 
022652 
022654 


022716 


022722 
022722 
022722 


016701 
000241 


006005 
103035 


116177 
012777 


012701 


012702 


104460 


005267 
005705 
001327 


- OAUTOA - 
000140 MOV 40$,R1 ;COPY THE LINE NUMBER. 
CLC ;CLEAR CARRY BIT PRIOR TO SHIFTING BIT MAP. 
ROR RS ;SHIFT ACTIVE LINE BIT MAP INTO CARRY BIT. 
BCC 12$ ; SKIP TESTING THIS LINE IF IT IS INACTIVE. 
; Transmit the XON (ASCII DC1) on the associated line. 
004044 157460 " MOVB TXRLNB(R1),9CSRA ;SELECT THE ASSOCIATED TX LINE 
100021 157454 MOV #100021, @TXCHA ; TRANSMIT “THE XON CHARACTER TO THE LUT. 
3+ 
; Wait for transmission to complete. 
170012 "MOV #170012,R1 sTEST BIT 15, TIMEOUT OF 10 MILLI SECS. 
157442 MOV CSRA,R2 ;PASS THE ADDRESS OF = REGISTER TO TEST. 
173772 JSR rt, WAIBIS SWAIT FOR OMA TO COMPLETE. 
BCC 50$ ;ABORT TEST IF TIMEOUT. OCCURRED. 
000005 MOV #5,R4 ;PASS TIME-OUT OF 5 MILLI SECS. 
171102 JSR PC ,DELAY ;WAIT FOR CHAR TO BE RECEIVED AND PROCESSED. 
;* 
; Test tne state of the TX_ENABLE bit on the line under test. 
; Report error if TX_ENABLE bit is clear. 
161264 "INC ERRNBR ; INCREMENT ERROR NUMBER TO 5006. 
000060 MOV 40$,R1 ;GET THE NUMBER OF THE LINE UNDER TEST. 
157410 MOV R1,@CSRA ;SELECT THE LINE CURRENTLY UNDER TEST. 
157420 TST aTXAD2A ;TEST THE STATE OF THE TX_ENABLE BIT. 
BMI 12$ ;SKIP ERROR REPORT IF BIT IS CLEAR. 
006250 MOV #EM4902 ,R2 ;PASS THE MESSAGE TO BE REPORTED. 
; “OAUTO BIT BAD ON LINE nn". 
ERROR ; >>>>> ERROR #5006 <<<<<. 
TRAP CSERROR 
000034 12$: INC 40$ ; INCREMENT THE LINE NUMBER, 
TST R5 ;CHECK IF THERE ARE ANY MORE LINES TO TEST. 
BNE 10$ 3 
* Check loop control flag to determine if both sets of lines have been tested 
; If this is the fist time around, re-enable TX on all lines, generate active 
; bit map for second line group. 
: TST R3 ;HAVE BOTH LINE GROUPS BEEN TESTED?. 
BEQ 60$ ;YES; THEN EXIT THIS TEST. 
CLR R3 ;NO; CLEAR THE LOOP CONTROL FLAG, 
000377 MOV #MAPLNS ,R5 ;PASS THE BIT MAP OF ALL AVAILABLE LINE. 
173336 JSR PC, TXENBL ; RE-ENABLE TRANSMISSION ON ALL LINES. 
157334 MOV ACTLNS,RS ;GET THE ACTIVE LINE BIT MAP. 
157366 BIC LGRP1M,R5 ;REMOVE ALL ACTIVE LINES IN GROUP 1. 
BR 2$ ;ONCE MORE AROUND AND WE ARE DONE. 
40$: -WORD 0O ;STORAGE FOR CURRENT LINE NUMBER. 
45$: -WORD 0O ;STORAGE FOR CURRENT ACTIVE LINE "BIT MAP. 
173064 ~ 50$: JSR PC, TSABRT ;REPORT TEST ABORTED. NON-TEST RELATED ERROR. 
157342 60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10027: 
TRAP CSETST 








SEQ 0135 


ee ee oe 


Gli 
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5428 : Test  *- state of the IAUTO bit prior to transmitting the data pattern. 
; If the bit is set, then report the error and skip transmitting 


SEQ 0136 
“HARDWARE TEST - OAUTOA - 
5374 
5375 .SBTTL HARDWARE TEST - IAUTOI - 
5376 eetiiiii iit ttitt ttt tii titi ti iiitititititti titi itiiitiiitiitititttiti itt t tt ttt tt 
are ;* - IAUTO BIT INACTIVE TEST - 
;* 
5379 ;* This test verifies that the DUT's IAUTO function behaves correctly 
5380 ;* when inactive, ie. IAUTO bit clear. 
5381 ;* All active lines are tested individually by filling the FIFO 
5382 ;* then coegi"a the received data checking for the presence of 
5383 ;* XOFFCASCII DC3) or XON (ASCII DC1) characters. 
5384 ;* If any are found then appropriate errors are reported. 
5385 ;* Any BMP codes that are found will be placed on the BMP code queue, 
5386 i* to be reported later. 
5387 i* The characters are transmitted on all active lines, in internal 
Sees ;* loopback mode. 
;* 
Soae Bn KERR ERE EEE ERE EEE EEE EEE ERE EERE EERE EEE EE EEE EERE EERE EEE EEE EEE 
91 
5392 022724 BGNTST 
022724 T6:: 
5393 000006 TNUM == TNUM + 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
5394 022724 012767 000006 157334 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (51) 
5395 022732 012767 177777 157324 MOV #-1,CTRLCF s INDICATE THAT WE ARE IN A TEST. 
5396 022740 012767 000001 161136 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
5397 022746 012767 011755 161132 MOV #5101. ,ERRNBR ;SET ERROR NUMBER TO 5101. 
5398 022754 012767 006332 161126 MOV #€M5101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
tHe 022762 012767 012572 161122 MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
3+ 
5401 ; Reset the DUT to a known state, remove the status codes from the fifo. 
5402 ; Clear TX and RX interrupt enable bits in the CSR. 
oar ‘ ; This subroutine reports error >>>>> 5101 <<<<<, 
4 :- 
5405 022770 004767 170512 JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
seat 022774 103146 BCC 60$ ;EXIT TEST IF FATAL ERROR FOUND. 
5408 + 
5409 . ; Initialize the 256 byte date pattern. f . 
5410 ; Ensure the data pattern is free from XON's‘or XOFF's to prevent errors. 
seit ; Note: the first two characters and the last two characters will be the same. 
41 e 
zets 022776 004767 171242 JSR PC, INDTPX ;INITIALISE DATA PATTERN. 
5415 ; Set internal loopback, disable IAUTO, enable receiver on the selected line. 
esit ; Set LPR to 38.4k baud, 8 bits per character, odd parity, 2 stop bits. 
5418 023002 016705 157226 ‘ MOV ACTLNS,RS ;PASS THE ACTIVE LINE BIT MAP. 
5419 023006 012700 000204 MOV #204 ,RO ;PASS INT'L LOPBCK, ENABLE RX, DISABLE IAUTO. 
5420 023012 004767 173674 JSR PC ,WTWLNC sINITTALISE THE LINE CONTROL REGISTER. 
5421 023016 012700 177670 MOV #177670,R0 ;PASS THE LPR~CONTENTS. 
5422 023022 004767 173714 JSR PC,WTWLPR ;SET THE LPR CONTENTS 10 38.4K BAUD. 
5423 023026 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
aege 023032 004767 170662 JSR PC,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
5426 ;¢ 
5427 ; Set up loop for all active lines. 
; 5429 





| CVDHBDO DHV11-M 
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5434 023036 


5441 023064 


5447 023066 


023112 
5453 023114 


5458 023116 
5459 023122 


5462 023136 


5468 023140 
5469 023144 
5470 023150 
5471 023154 
5472 023160 
5473 023162 
5474 023166 


5480 023172 
5481 023176 
5482 023202 
5483 023206 


H11 
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SEQ 0137 
- IAUTOI - 
; _the data pattern on the selected line. 
; Transmit a 256 character data pattern using DMA, on a single channel 
; Empty the fifo, and verify no XOFF or XON chars were found. 
005001 CLR Ri ;CLEAR THE LINE NUMBER COUNTER. 
005067 000244 CLR 55$ ;CLEAR STORAGE FOR LINE NUMBER. 
012767 011756 161034 23: MOV #5102. ,ERRNBR ;SET THE ERROR NUMBER TO 5102. 
004767 171756 JSR PC,PUFIFO ;PURGE THE FIFO. 
103111 BCC 50$ :G0 REPORT ERROR IF FIFO DID NOT PURGE. 
000241 CL ;CLEAR CARRY PRIOR TO ROTATING BIT MAP. 
006005 ROR R5 ;ROTATE THE BIT MAP INTO THE CARRY BIT. 
103077 BCC 12$ ;BRANCH IF LINE IS INACTIVE. 
;* 
; Test the IAUTO bit on the selected active line. 
; Report error if it is set. 
; Do not transmit the data pattern on the selected line. 
005267 161014 INC ERRNBR ;SET ERROR NUMBER TO 5103. 
010177 157144 MOV R1,@CSRA ;SELECT LINE TO TEST. 
032777 000002 157146 BIT #BIT1,@LNCTRA ;TEST THE STATE OF THE IAUTO - ON THIS LINE. 
001404 BEQ 4$ ;SKIP ERROR IF IAUTO BIT CLEAR 
012702 006360 MOV #EM5102,R2 ;PASS THE CORRECT ERROR MESSAGE. 
ERROR ; >>>>> ERROR <<<<<, 
104460 TRAP CSERROR 
000463 BR 12$ ;SKIP TRANSMITTING DATA PATTERN. 
; Transmit data pattern of 256 chars. 
005267 160764 4$: INC ERRNBR ;SET ERROR NUMBER TO 5104. 
012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
012703 000400 MOV #256. ,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
004767 170622 JSR PC,DODMA ; TRANSMIT THE DATA PATTERN. 
103061 BCC 50$ ;ABORT THE TEST IF ERROR FOUND DURING DMA TX. 
Hind 
; Wait for DMA to complete, then wait for the last character plus XOFF 
; to arrive in the fifo. 
005267 160742 INC ERRNBR ;SET ERROR NUMBER TO 5105. 
012701 170536 MOV #170536,R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
016702 157066 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
004767 173416 JSR PC, ,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
103050 BCC 50$ ;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
012704 000012 MOV #10. ,R4 ;PASS DELAY OF 10 MILLI SECS. 
004767 170526 JSR PC,DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
:¢ - 
; Read 256 chars from the fifo. Report error if any XOFF's or XON's 
; are found. 
005267 160710 INC ERRNBR ; INCREMENT ERROR NUMBER TO 5106. 
012701 000400 MOV #256. ,R1 ;INITIALISE THE READ COUNTER. 
017702 157036 6$: MOV ARBUFA,R2 ;READ CHAR FROM THE FIFO. 
100035 BPL 50$ ;GO REPORT ERROR IF FIFO EMPTY. 


;* 
; Check for BMP code in the fifo. Save any found on the queue. 
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6 
023210 


023214 
023216 
023220 


023224 


023244 


023246 
023252 
023256 
023262 
023262 


023264 


023300 


4 
023302 


023306 
023310 
023312 


023316 
023316 
023316 


ee ee ee ee 


012700 
040200 
001002 
004767 


120227 
001406 
120227 
001403 
005301 
001357 
000407 


005267 
016701 
012702 


104460 


005267 


000000 
005067 


104401 


170301 


172320 


000023 
000021 


160634 
000032 
006416 


000020 
000014 


172474 


156746 


8$: 


10$: 


128: 


50$: 


55$: 
60$: 
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#170301,RO0 
R2,RO 


8$ 
PC, SAVBMP 


;SET UP BMP BIT MASK. 


;TRY TO CLEAR ALL THE BMP BITS. 
;SKIP BMPSAV IF NOT A BMP CODE. 
;SAVE THE BMP CODE ON THE QUEUE. 


;* 
; Check for XOFF and XON characters. 


ENDTST 


Re, #23 
10$ 
R2, #21 
10$ 


6$ 

12$ 

ERRNBR 
55$,R1 
#EM5103,R2 


55$ 
55$,R1 
RS 


2s 
60$ 


PC, TSABRT 
60$ 


0 
CTRLCF 


;IS IT AN XOFF CHARACTER 
te GO REPORT ERROR. 

IS IT AN XON CHARAC 
YES; GO REPORT ERROR 


?. 
TER?. 


; DECREMENT THE READ COUNT 


;LOOP TO READ THE NEXT CHA 


;GO CHECK FOR ANY UNTESTED ACTIVE LINES. 


;SET ERROR NUMBER TO 510 


7. 


;PASS THE LINE NUMBER TO BE REPORTED. 


PASS THE ERROR MESSAGE TO BE REPORTED. 


; >>>>> ERROR <<<<<. 


; Check if all active lines have been tested. 


; INCREMENT LINE NUMBER. 


;GET NUMBER OF THE NEXT LINE TO T 


TRAP 


SEQ 0138 


CSERROR 


EST 
;ARE THERE ANY MORE ACTIVE LINES TO TEST?. 


;LOOP TO CHECK NEXT LINE. 
;EXIT TEST. 


sREPORT TEST ABORTED. NON-TEST RELATED ERROR. 


;EXIT THIS TEST. 
;STORAGE FOR LINE NUMBER. 


;INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10030: 


TRAP 


CSETST 


ee ee wwe 


14 
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5538 023320 
023320 


5540 023320 
5541 023326 
5542 023334 
5543 023342 
5544 023350 
5545 023356 


0 
5551 023364 
5552 023370 


8 
5559 023372 
5564 023376 


5569 023422 
5570 023426 


012767 


004767 
103161 


004767 


016705 


004767 


006446 
012572 


170116 


170646 


156632 
000206 
173300 
177670 
173320 
000012 
170266 


156740 
156730 
160542 
160536 
160532 
160526 


.SBTTL HARDWARE TEST - IAUTOA - 
5 RR RR RR RR RR IR RRR EER EEE EEE EEE ERE EERE EERE EEE REE EERE 


;* 


. 
, 


* 
* 
* 
ak 
x 
* 
* 
* 
oe 
* 
* 


- IAUTO BIT ACTIVE TEST - 


This test verifies that the DUT’s IAUTO function behaves correctly 
when active, ie IAUTO asserted high. 

All active lines are tested individually . filling the FIFO, and 
checking for the presence of at least one XOFFC(ASCII DC3) character 
and one XON (ASCII DC1) character. 

Any BMP codes that are found will be placed on the BMP code queue, 
to be reported later. 

The characters are transmitted on all active lines, in internal 
loopback mode. 


— RR RRR KERR REE EERE EERE ERR ERE EEE EERE EERE EERE EERE REREKEREEEEEEEEES 


BGNTST a 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV —s #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (52) 

MOV = #-1, CTRLCF ; INDICATE THAT WE ARE IN A 


TEST. 
: ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #5201.,ERRNBR  ;SET ERROR NUMBER TO 5201. 
MOV #EMS201,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #ER9101,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 


3+ 
; Reset the DUT to a known state, remove the status codes from the fifo. 
Clear TX and RX interrupt enable bits in the CSR. 


; This subroutine reports error >>>>> 5201 <<«<<<, 


+ 


+ 


sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 


JSR PC,CLNRST 
60$ sEXIT TEST IF FATAL ERROR FOUND. 


BCC 


+ 

Initialize the 256 byte data pattern. 
Ensure the data pattern is free from XON's or XOFF’s to prevent errors. 
Note: the first two characters and the last two characters will be the same. 


JSR PC, INDTPX sINITIALISE DATA PATTERN. 


Set internal loopback, enable IAUTO and receiver on the selected line. 
Set LPR to 38.4k baud, 8% bits per character, odd parity, 2 stop bits. 


sPASS THE ACTIVE LINE BIT MAP. 
MOV #206, sPASS INTERNAL LOPBCK, ENABLE RX AND IAUTO. 
JSR PC, WTWLNC sINITIALISE THE LINE CONTROL REGISTER. 
MOV #177670,RO sPASS THE LPR CONTENTS. 
JSR PC ,WTWLPR ;SET THE LPR CONTENTS TO 38.4K BAUD. 
#10. ,R4 sPASS DELAY TIME OF 10 MILLI SECONDS 
JSR PC, DELAY 


MOV ACTLNS ,RS 
RO 


;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 


Set up loop for all active lines. 

Test the state of the OAUTO bit prior to transmitting the data pattern. 
If the bit is clear, then report the error and skip transmitting 
the data pattern on the selected line. 

Transmit a 224 character data pattern using DMA, on a single channel 


SEQ 0139 


ee | 


LLL LLL LL TT se se wt ste se 
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5587 023460 


2 
5593 023462 
5594 023466 
5595 023472 
5596 023500 
5597 023502 


8 
5599 023506 
023506 
zene 023510 


5604 

5605 023512 
5606 023516 
5607 023522 
5608 023526 
5609 023532 


5615 023534 
5616 023540 
5617 023544 
5618 023550 
a4 023554 


3 
5624 023556 
5625 023560 
5626 023564 
5627 022570 
5628 023574 


5632 023576 
5633 023602 


ee 


103112 


005267 
010177 
032777 
001004 
012702 


104460 
000476 


005267 


103074 


005267 
012701 
016702 
004767 
103063 


100053 


012700 
040200 


K11 


SEQ 014 
- IAUTOA - lita 
; Empty the fifo, and count the XOFF and an XON chars found. 
CLR R1 ;CLEAR THE LINE NUMBER COUNTER. 
000272 CLR 55$ ;CLEAR STORAGE FOR LINE NUMBER. 
012122 160440 2$: MOV #5202. ,ERRNBR ;SET THE ERROR NUMBER TO 5202. 
171362 JSR PC ,PUFIFO ;PURGE THE FIFO. 
BCC 50$ G0 REPORT ERROR IF FIFO DID NOT PURGE. 
CLC ;CLEAR CARRY PRIOR TO ROTATING BIT MAP. 
ROR RS ;ROTATE THE BIT MAP INTO THE CARRY BIT. 
BCC 16$ ;BRANCH IF LINE IS INACTIVE. 
3¢ 
; Test the IAUTO bit on the selected active line. 
; Report error if it is clear. 
; Do not transmit the data pattern on the selected line. 
160420 INC ERRNBR ;SET ERROR NUMBER TO 5203. 
156550 MOV R1,aCSRA ;SELECT LINE TO TEST. 
000002 156552 BIT #BIT1,@LNCTRA ;TEST THE STATE OF THE IAUTO BIT ON THIS LINE. 
BNE 4$ ; SKIP ERROR IF IAUTO BIT SET. 
006472 MOV #EM5202 ,R2 ;PA SS THE CORRECT ERROR MESSAGE. 
; “IAUTO BIT FOUND CLEAR ON LINE nn” 
ERROR ; >>>>> ERROR <<<<<, 
TRAP CSERROR 
BR 16$ ;SKIP TRANSMITTING DATA PATTERN. 
H + 
; Transmit data pattern to fill the fifo, 223 chars + 32 xoff's + xon. 
160370 4$: INC ERRNBR ;SET ERROR NUMBER TO 5204. 
002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA ge TO TX. 
000337 MOV #223. ,R3 ;PASS THE LENGTH OF THE = PATTERN. 
170226 JSR PC,DODMA ; TRANSMIT THE DATA PATTERN 
, BCC 50$ ; ABORT THE TEST IF ERROR FOUND DURING DMA TX. 
3¢ 
; Wait for DMA to complete, then wait for the last character plus XOFF 
; to arrive in the fifo. 
160346 , INC ERRNBR ;SET ERROR NUMBER TO 5205. 
170536 MOV #170536,R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
156472 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
173022 JSR PC,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET 
BCC 50$ ;1F NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
H + 
_.. + Read 256 chars from the fifo, count any XOFF or XON chars found. 
CLR R3 ;CLEAR XOFF AND XON INDICATOR. 
160322 INC ERRNBR ; INCREMENT ERROR NUMBER TO 5206. 
000400 MOV #256. ,R1 ;INITIALISE THE READ COUNTER. 
156450 6$: MOV ARBUFA,R2 ;READ CHAR FROM THE FIFO. 
BPL 50$ ;GO REPORT ERROR IF FIFO EMPTY. 
3° 
; Check for BMP code in the fifo. Save any found on the queue. 
170301 "MOV —- #170301,RO ;SET UP BMP BIT MASK 
BIC R2,RO ;TRY TO CLEAR ALL THE BMP BITS. 





soul 


ne ee 


Lil 
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SEQ 014 

| HARDWARE TEST - IAUTOA - 7 

5634 023604 001002 BNE 8$ ;SKIP BMPSAV IF NOT A BMP CODE. 

see 023606 004767 171732 JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 

+3 44 ; Check for XOFF and XON characters. 

5639 023612 120227 000023 8$: : CMPB-sR2, #23 31S IT AN XOFF CHARACTER?. 

5640 023616 001002 BNE 10$ ;NO, BRANCH TO SEE IF my IS AN XON. 

5641 023620 052703 000001 BIS #BITO,R3 ; INDICATE THE XOFF CHA 

5642 023624 120227 000021 10$: CMPB R2,#21 31S IT AN XON CHARACTER?. 

5643 023630 001002 BNE 12$ ;NO, SKIP THE NEXT ~ liaeataay 

5644 023632 052703 000002 BIS #BIT1,R3 INDICATE THE XON CHA 

5645 023636 005301 12$: DEC Ri ; DECREMENT THE READ COUNT. 25¢C. READ? 

5646 023640 001410 BEQ 14$ ;YES, EXIT THE LOOP. 

5647 023642 020127 000300 CMP R1,#192. NO. HAVE WE READ — 192 CHARS? 

5648 023646 001350 BNE 6$ :NO, LOOP TO READ MORE 

5649 023650 012704 000012 MOV #10. ,R4 ;YES. aes 10MS TO WAIT FOR THE XON CHAR 

5650 023654 004767 170040 JSR PC ,DELAY ; (WHICH IS LAST CHAR) TO GET INTO FIFO. 

aes 023660 000743 BR 6$ ;LO0P TO READ MORE CHARS. 

5653 ; Verify than at least 1 XOFF and 1 XON was found in the fifo. 

sees ; Report error if none were found. 

5656 023662 020327 000003 14$: : CMP R3, #3 ;DID WE GET AT LEAST 1 XON AND 1 XOFF? 

5657 023666 001407 BEQ 16$ ;YES, SKIP ERROR REPORT. 

5658 023670 005267 160212 INC ERRNBR ;NO, SET ERROR NUMBER TO 5207. 

5659 023674 016701 000032 MOV 55$,R1 ;PASS THE LINE NUMBER TO BE REPORTED. 

5660 023700 012702 006416 MOV #EM5103,R2 ;PASS THE ERROR MESSAGE TO BE REPORTED. 

5661 ; "IAUTO BIT BAD ON LINE nn". 

5662 023704 ERROR ; >>>>> ERROR <<<<<, 

5663 023704 104460 TRAP C$ERROR 

rt : Check if all active lines have been tested. 

5666 023706 005267 000020 16$: INC 55$ ; INCREMENT LINE NUMBER. 

5667 023712 016701 000014 MOV 55$,R1 ;GET NUMBER OF THE NEXT LINE TO TEST. 

5668 023716 005705 TST R5 ;ARE THERE ANY MORE ACTIVE LINES TO TEST?. 

5669 023720 001247 BNE 2s ;LOOP TO CHECK NEXT LINE. 

sere 023722 000404 BR 60$ ;EXIT TEST. 

5672 023724 004767 172052 50$: JSR PC, TSABRT ;REPORT TEST ABORTED. NON-TEST RELATED ERROR. 

5673 023730 000401 BR 60$ ;EXIT THIS TEST. 

5674 023732 000000 55$: . WORD 0 ;STORAGE FOR LINE NUMBER. 

ge%? 023734 005067 156324 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 

5677 023740 ENDTST 

023740 L10031: 
023740 104401 TRAP CSETST 

| 
‘ 
| 


a ee 


M11 
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4 
5695 


023742 
023742 


96 
023742 


023750 
023756 
023764 
023772 


024000 
024004 


024014 


024020 
024024 
24030 
024034 
024040 
024044 
024050 
024054 
024060 
024064 
024070 


°o 


000010 


012767 
012767 
012767 
012767 
012767 


004767 
103107 


004767 
103104 
004767 


012700 


103053 


- FIFDAT - 


000010 
177777 
000001 
012265 
006530 


167502 


170122 
170174 


160022 
167670 


156316 
156306 
160120 
160114 
160110 





-SBTTL HARDWARE TEST - FIFDAT - 
5 OO RREREE REE EER ED ERE ER ARERR ER ERASER ARES ER ERE EREE EERE EERE EERE EERE ERRORS 
- FIFO VALID DATA TEST - 


This test verifies that the DUT is capable of holding 256 valid 
characters in its fifo. 

The characters are transmitted on the first available active line, in 
internal loopback mode. 

The data found in the fifo is compared with the expected data, and any 
ag ancies are reported. 

Any BMP code found will invalidate the test and cause it to be aborted. 
However the BMP code will be placed on the BMP code queue, to be 
reported later. 


: 
e 


(#eeeeeee ee & 


ec es os Ge ee of oe ee oe ee oe 


~EEKEEEEEEERERERERERER EERE ERERERERESERESEESE SEES ERAS ESE ERES EES ESSER ERERE SES 
BGNTST 


T8:: 
TNUM == TNUM « 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SE 4 8 bi gl NUMBER. (53) 
MOV #-1, CTRLCF ; INDICAT T WE ARE IN A TEST. 
MOV #1, ERRTYP ;SET ERROR. TYPE AS FATAL IN ERROR TABLE. 
MOV #5301. »ERRNBR ;SET ERROR NUMBER TO 5301. 
MOV #EM5301, ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


‘* Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 
; This subroutine reports error >>>>> 5301 <<<<<, 


JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCC 60$ ;EXIT TEST IF FATAL ERROR FOUND. 

; Find an active line on which to perform the test. 

; Initialise 256 byte data pattern. 


JSR PC,FINACT sFIND AN ACTIVE LINE. 
BCC 60$ sEXIT IF NO-ACTIVE LINES FOUND. 
JSR PC, INDATP sINITIALISE THE DATA PATTERN. 


a Transmit a 265 character data pattern using DMA, on a single channel 
; at 38.4k baud, 8 bits per character, odd parity, 2 stop bit 


; 
i* 


; Set internal loopback on the selected line. 
; Transmit the data pattern on the first available active line. 


MOV #204 ,RO sPASS PARAMETER FOR INTERNAL LOPBCK,ENABLE RX. 
JSR PC ,WTWLNC ;INITILAISE THE LINE CONTROL REGISTER. 

MOV #177670, RO ;PASS THE LPR CONTENTS. 

JSR PC ,WTWLPR ;SET THE LPR CONTENTS TO 38.4K BAUD. 

MOV #10. ,R4 sPASS DELAY TIME OF 10 MILLI SECONDS 

JSR PC, oeke's sWATT FOR LNCTRL AND LPR REGS TO BE UPDATED 
MOV #8 S THE START OF THE DATA PATTERN TO TX 

MOV SBUFMID: "BUFBAS, RS sPASS THE LENGTH OF THE DATA PATTERN. 

INC RRNBR RROR 


;SET E NUMBER TO 5302. 
; TRANSMIT THE DATA PATTERN. 
BCC 50$ ;ABORT TEST IF ERROR FOUND DURING DMA TX, 


SEQ 0142 


me ae + 


A ee; 


11 
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SEQ 0143 
| HARDWARE TEST - FIFDAT - 
5735 i+ 
5736 ; Wait for DMA to complete, then wait for the last character to arrive in 
Lt 1 ; the fifo. 
5739 024072 005267 160010 INC ERRNBR ;SET ERROR NUMBER TO 5303. 
5740 024076 010103 MOV R1,R3 ;SAVE THE NUMBER OF THE SELECTED ACTIVE LINE. 
5741 024100 012701 170536 MOV #170536, R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
5742 024104 016702 156132 MOV CSRA,R2 PASS THE ADDRESS OF THE CSR. 
5743 024110 767 172462 JSR PC, ;WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
5744 024114 103041 BCC 50$ ; BRANCH IF FIFO EMPTY, ABORT THE T TEST. 
5745 024116 012704 000005 MOV #5,R :PASS DELAY OF 5S MIL Li SECS. 
zra$ 024122 004767 167572 JSR Pc DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
5748 ; Read the FIFO checking for data corruption, report any errors found. 
La ; Abort the test if a BMP code was found in the fifo. 
5751 024126 006303 ASL R3 ;MULTIPLY BY 2. 
5752 024130 005 CLR R4 FINITIALISE THE EXPECTED DATA. 
5753 024132 016705 156106 MOV RBUFA,RS ;GET THE ADDRESS OF THE ge OS es BUFFER REG. 
5754 024136 012767 012270 157742 2$: MOV #5304. ,ERRNBR SET RROR NUMBER EACH TIME AROUND LOOP. 
5755 024144 011502 MOV (R5),R2 ;GET THE ACTUAL DATA FROM THE FIFO. 
Le. 4 024146 100024 BPL 50$ ; ABORT THE TEST IF THE FIFO IS EMPTY. 
5758 ; Check if the read character is a BMP code. 
5759 ; If it is a BMP code save it on the queue to be reported later, and 
aver ; ebort the test. 
he 

5762 024150 005267 157732 INC ERRNBR ;SET ERROR NUMBER TO 5305. 
5763 024154 004767 167226 JSR PC, CHKBMP ;CHECK IF —'t IS A BMP CODE. 
5764 024160 103002 BCC 4$ ;BRANCH IF NOT A BMP CODE. 
5765 024162 ERROR 3 >>>>> ERROR 5305 <<<<<, 

024162 104460 TRAP CSERROR 
ee 024164 17 BR 60$ ;ABORT THIS TEST. 
5768 024166 005267 157714 4$: INC ERRNBR ;SET ERROR NUMBER TO 5306. 
5769 024172 120402 CMPB = R4,, R2 ;COMPARE THE EXPECTED Fads THE ACTUAL DATA. 
5770 024174 001406 BEQ 8s ;SKIP ERROR REPORT IF DATA IS 
5771 024176 012767 012424 157706 MOV #ER9002 , ERRBLK ‘SELECT THE CORRECT ERROR REPORTING ROUTINE. 
5772 024204 012701 006555 MOV #EM5302,R1 PASS THE MESSAGE TO BE REPORTED. 
5773 ;REPORT THE ERROR "FIFO BAD, DATA FIELD CORRUPTED” 
5774 024210 6$: ROR F >>>>> ERROR 5306 <<< 

024210 104460 TRAP ” CSERROR 
5775 024212 105204 8$: INCB R4 s INCREMENT THE EXPECTED DATA. 
5776 024214 001350 BNE 2$ ;LOOP IF NOT DONE. 
Ly 024216 0402 BR 60$ ;EXIT 
5779 024220 004767 171556 50$: JSR PC, TSABRT ;ABORT THE TEST, REASON SHOWN BY ERROR NUMBER. 
zee 024224 005067 156034 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
5782 024230 ENDTST 

024230 L10032: 

024230 104401 TRAP CSETST 


re eee 
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SEQ 0144 
HARDWARE TEST - FI3QLI - 
5784 .SBTTL HARDWARE TEST - FI3QLI - 
5785 eT iii iii iii itiiiti tt iti tii iiiiiiititititititiiiiiiiiiiiiititiiiiititi ttt ttt ty 
ares ;* - FIFO 3/4 LEVEL INACTIVE TEST - 
7% 
5788 ;* This test ee that the DUT's fifo 3/4 level alarm system 
5789 ;* remains inactive while it contains 191 characters or less. 
5790 7* The test looks for an XOFF (ASCII D0C3) character in the fifo. 
5791 ;* If any XOFF's are found an error will be reported and the test aborted. 
$792 :* Any BMP code found will invalidate the test and cause it to be aborted. 
5793 3* However the BMP code will be placed on the BMP code queue, to be 
5794 ;* reported later. 
5795 7* The characters are transmitted on the first available active line, in 
Le 3% internal loopback mode. 
;* 
sree Pert itittititttt titi tiiiiitittititiitiiiiiitiiiiiitititiitiiititiiititiittiiit +4 
5800 024232 BGNTST 
024232 T9:: 
5801 000011 TNUM == TNUM + 1 4 gee THE ASSEMBLY TIME TEST COUNTER. 
5802 024232 012767 000011 156026 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (54) 
5803 024240 012767 177777 156016 MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
5804 024246 012767 000001 157630 MOV #1,ERRTYP SET FATAL ERROR TYPE IN ERROR TABLE. 
5805 024254 012767 012431 157624 MOV #5401. ,ERRNBR ;SET ERROR NUMBER TO 5401. 
5806 024262 012767 006705 157620 MOV #€M5401, ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
oo 024270 012767 011636 157614 MOV #EROSO3,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
5809 “4 Reset the DUT to a known state, remove the status codes from the fifo. 
5810 ; Clear TX and RX interrupt enable bits in the CSR. 
TE ; This subroutine reports error >>>>> 5401 <<<<<. 
5813 0242;¢ 004767 167204 ° JSR PC,CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
seis 024302 .%%111 BCC 60$ ;EXIT TEST IF FATAL ERROR FOUND. 
ot ; Find an active line on which to perform the test. 
81 3° 
5818 024304 004767 167624 JSR PC,FINACT sFIND THE NUMBER OF THE FIRST ACTIVE LINE. 
+44 024310 103106 BCC 60$ sEXIT IF NO LINES ARE AVAILABLE. 
5821 i¢ 
5822 ; Initialize the 256 byte data pattern. 
5823 ; Ensure the data pattern is free from XON’s or XOFF's to prevent errors. 
pose ; Note: the first two characters and the last two characters will be the same. 
soot 024312 004767 167726 : JSR PC, INDTPX sINITIALISE THE DATA PATTERN. 
5828 ; Transmit e 191 character date pattern using DMA, on a singne channel 
zoee ; at 38.4k baud, 8 bits per character, odd parity, 2 stop bits 
5831 J 
5832 ; Set internal loopback, enable IAUTO and RX on the selected line. 
ot ; Transmit the data pattern on the first available active line. 
5835 024316 012700 000206 . MOV #206 ,RO ;PASS INTERNAL LOPBCK, ENABLE RX AND IAUTO. 
| 5836 024322 004767 172364 JSR PC,WTWLNC ;INITILAISE THE ed CONTROL REGISTER. 
5837 024326 012700 177670 MOV #177670,RO ;PASS THE LPR CONTENTS. 
5838 024332 004767 172404 JSR PC,WTWLPR ;SET THE LPR CONTENTS TO 38.4K BAUD. | 
; 5839 024336 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
| 


een ewe =~ ae - ~~ --- 





Ee 


———— cm ee ee ee eee 


Cle 
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' SEQ 0145 
| HARDWARE TEST - FI3QLI - 
5840 024342 004767 167352 JSR PC ,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
5841 024346 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
5842 024352 012703 000277 MOV #191. ,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
5843 024356 004767 167376 JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN. 
Sees 024362 103057 BCC 50$ ;IF ERROR FOUND DURING DMA THEN ABORT TEST. 
5846 7+ 
5847 ; Wait for DMA to complete, then wait for the last character to arrive in 
ons 4 ; the fifo 
5850 024364 005267 157516 INC ERRNBR ;SET ERROR NUMBER TO 5402. 
5851 024370 012701 170454 MOV #170454 ,R1 sPASS TIME-OUT VALUE 4 300 MILLI SECS. 
5852 024374 016702 155642 MOV CSRA,R2 :PASS THE ADDRESS OF THE CSR 
5853 024400 004767 172172 JSR PC,WAIBIS ;WAIT FOR DMA TO COMPLETE, 1X _ACTION SET. 
5854 024404 103046 BCC 50$ IF FIFO EMPTY, REPORT ERROR, “ABORT THE TEST. 
5855 024406 012704 000005 MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
eect 024412 004767 167302 JSR PC ,DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
5858 as ; Read the contents of the fifo. If any of the following conditions occur 
5859 ; report the error and abort the test; 
5860 3 Fife ty too soon. 
5861 ; BMP code found 
5862 3; Xoff code found. 
zoek ; Extra (192) character found in fifo. 
5865 024416 005004 CLR R4 ;CLEAR THE CHARACTER COUNT. 
5866 024420 016705 155620 MOV RBUFA,RS ;GET THE ADDRESS OF THE RECEIVER BUFFER REG. 
5867 024424 012767 012267 157454 23: MOV #5303. ,ERRNBR ;SET ERROR NUMBER TO 5403. 
5868 024432 011502 MOV (R5),R2 ;GET THE ACTUAL DATA FROM THE FIFO. 
5869 024434 100032 BPL 50$ ;FIFO EMPTY, ABORT TEST. 
vada 024436 005204 + INC R4 ; COUNT THE CHARACTER. 
5872 Check if the read character is a BMP code. 
5873 ; If it is a BMP code save it on the queue to be reported later, and 
=n ; abort the test. 
87 is 
5876 024440 005<67 157442 INC ERRNBR ;SET ERROR NUMBER TO 5404. 
5877 024444 004767 166736 JSR PC ,CHKBMP ;CHECK IF CHARACTER IS A BMP CODE. 
5878 024450 103001 BCC 4$ ;BRANCH IF NOT A BMP CODE. 
5879 ;REPORT ERROR "BMP CODE FOUND IN FIFO, TEST INVALIDATED”. 
cet 024452 000421 BR 8$ ;REPORT THE ERROR AND ABORT THE TEST. 
root ; Check if the character is an XOFF. Report the error if one is found. 
5884 
5885 024454 005267 157426 4$: INC ERRNBR ;SET ERROR NUMBER TO 5405. 
5886 024460 122702 000023 CMPB =#23,R2 ;CHECK IF THE READ DATA IS AN XOFF. 
5887 024464 001003 BNE 6$ ; BRANCH IF NOT AN XOFF 
5888 024466 012701 006744 MOV #EM5402 ,R1 ;PASS THE MESSAGE TO BE REPORTED. 
5889 ;REPORT THE ERROR “FIFO BAD, ALARM SIGNAL DEFECTIVE". 
| or 024472 000411 BR 8$ ;GO REPORT THE ERROR AND ABORT THE TEST. 
| 3892 024474 005267 157406 6$: INC ERRNBR ;SET ERROR NUMBER TO 5406. 
5893 024500 020427 000277 CMP R4,#191. ;CHECK IF WE HAVE READ ALL THE CHARACTERS. 
5894 024504 001347 BNE 2s ;LOOP BACK TO GET THE NEXT CHARACTER. 
5895 024506 011502 MOV (R5),R2 ;TRY TO READ AN EXTRA CHARACTER FROM THE FIFO. 


, 5896 024510 100006 BPL 60$ sEXIT IF NON FOUND. 





OOOO 


road 024512 


9 
5900 024516 
024516 
5901 024520 


3 
5904 024522 
5905 024526 


5907 024532 
024532 
024532 


EE TT — LS 


— re ee ee ee 


012701 


104460 
000402 


004767 
005067 


104401 


- FI3QLI - 
006744 


171254 
155532 


8$: 


50$: 
60$: 


MOV 


Die 


#EM5402 ,R1 
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HARDWARE TEST 
;PASS THE MESSAGE TO BE REPORTED. 


;REPORT THE ERROR “FIFO BAD, ALARM SIGNAL DEFECTIVE”. 
; >>>>> ERRORS 5304 THRU 5306 <<<<<, 


ERROR 

BR 

JSR 
CLR 

ENDTST 


60$ 


PC, TSABRT 
CTRLCF 


;EXIT THE TEST. 


>>>>> ERRORS 5402 AND 5403 <<<<<. 


TRAP 


a ee ee Cees 


CSERROR 


;REPORT TEST ABORTED. NON-TEST RELATED ERROR. 


;INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10033: 


TRAP 


CSETST 


SEQ 0146 


cle 
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024534 
024534 


024534 
024542 
024550 
024556 
024564 


024572 
024576 
024600 


024604 
024610 
024612 


024616 


024622 
024626 
024632 
024636 


000012 
012767 
012767 
012767 
012767 
012767 


004767 
103402 
000167 


004767 
103402 
000167 


004767 


- FI3QLA - 


000012 
177777 
000001 
012575 
007005 


166710 
000414 


167324 
000402 


167422 


157260 
000206 
172054 
177670 


155524 
155514 
157326 
157322 
157316 





.SBTTL HARDWARE TEST - FI3QLA - 
Petri Titii iri iii titi titi irri TTP iret irr Piri iri tT 


- FIFO 3/4 LEVEL ACTIVE TEST - 


This test verifies that the DUT's fifo 3/4 level alarm system 

becomes active when the fifo contains > 192 characters. 

The test compares the actual number of XOFF (ASCII DC3) 

characters that are found in the fifo with the expected number. 

An error will be reported, if the counts are found to differ. 

Any BMP code found will invalidate the test and cause it to be aborted. 
However the BMP code will be placed on the BMP code queue, to be 
reported later. 

The characters are transmitted on the first available active line, in 
internal loopback mode. 


ieee eee eee e ee 


-EREREE EERE ERE REE EER EERE EERE ERE E EERE EERE EERE EEE EERE EERE EE AEE EE EEE EEE EE EEE 
BGNTST the, 
1 
a == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
M #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (55) 
MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #5501.,ERRNBR ;SET ERROR NUMBER TO 5501. 
MOV #EM5501,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


;* 

; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 

; This subroutine reports error >>>>> 5501 <<<<<, 


3 JSR PC,CLNRST sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS +6 ;SKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
JMP 60$ sEXIT TEST FATAL ERROR FOUND. 


3* 
; Find an active line on which to perform the test. 


7 JSR PC,FINACT sFIND AN ACTIVE LINE. 
BCS +6 SKIP EXIT OF TEST IF ACTIVE LINE FOUND. 
JMP 60$ ;EXIT TEST. 


"Initielize the 256 byte date pattern. 

Ensure the data pattern is free from XON's or XOFF’s to prevent errors. 

Note: the first two characters and the last two characters will be the same. 
JSR PC, INDTPX sINITIALISE DATA PATTERN. 


“Trengait a 256 character data pattern using DMA, on a single channel 
at 38.4k baud, 8 bits per character, odd parity, 2 stop bits. 


; set internal loopback, enable IAUTO and receiver on the selected line. 
; Transmit the first 191 characters on the first available active line. 


es: INC ERRNBR ;SET ERROR NUMBER TO 5502. 
MOV #206 ,RO ;PASS INTERNAL LOPBCK, ENABLE RX AND IAUTO. 
JSR PC ,WTWLNC sINITIALISE THE LINE CONTROL REGISTER. 
MOV #177670,RO ;PASS THE LPR CONTENTS. 


SEQ 0147 


Pic 
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SEQ 0148 
HARDWARE TEST - FI3QLA - 
5965 024642 004767 172074 JSR PC,WTWLPR ;SET THE LPR CONTENTS TO 38.4K BAUD. 
5966 024646 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
5967 024652 004767 167042 JSR PC,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
5968 024656 010105 MOV R1,R5 ;COPY THE LINE NUMBER. 
5969 024660 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
5970 024664 012703 000277 MOV #191. ,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
5971 024670 004767 167064 JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN. 
ad 024674 103147 BCC 50$ ;ABORT THE TEST IF ERROR FOUND DURING DMA TX. 
5974 i+ 
5975 ; Wait for DMA to complete, then wait for the last character to arrive in 
3o79 ; the fifo. 
5978 024676 005267 157204 INC ERRNBR ;SET ERROR NUMBER TO 5503. 
5979 024702 012701 170454 MOV #170454,R1 ;PASS TIME-OUT VALUE OF 300 MILLI SECS. 
5980 024706 016702 155330 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
5981 024712 004767 171660 JSR PC ,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX _ACTION SET. 
5982 024716 103136 BCC 50$ ;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
5983 024720 012704 000005 MOV #5,,R4 ;PASS DELAY OF 5 MILLI SECS. 
oes 024724 004767 166770 JSR PC,DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
zoos ; Transmit a null character which will cause an XOFF to be generated. 
5988 024730 005267 157152 INC ERRNBR ;SET ERROR NUMBER TO 5504. 
5989 024734 010501 MOV R5,R1 ;PASS THE LINE NUMBER. 
5990 024736 012702 002704 MOV #BUFBAS, R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
5991 024742 012703 000001 MOV #1,R3 ;PASS THE NUMBER OF 
5992 024746 004767 167006 JSR PC. DODMA ;T7X A NULL CHARACTER TO CAUSE AN XOFF. 
coer 024752 103120 BCC 50$ ;ABORT THE TEST IF ERROR FOUND DURING DMA TX. 
5995 i+ 
5996 ; Wait for the XOFF to be received before TX the next 42 characters 
oad ; which will cause a further 21 XOFF's to be generated. 
5999 024754 005267 157126 INC ERRNBR ;SET ERROR NUMBER TO 5505. 
6000 024760 012701 170012 MOV #170012,R1 ;PASS TIME-OUT VALUE OF 10 MILLI SECS. 
6001 024764 016702 155252 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR 
6002 024770 004767 171602 JSR PC,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX _ACTION SET. 
6003 024774 103107 BCC 50$ ;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
6004 024776 012704 000005 MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
6005 025002 004767 166712 JSR PC,DELAY ;WAIT FOR XOFF TO GET INTO THE FIFO. 
6006 3+ 
6007 ; Initialise the 256 byte data pattern to all nulls. 
6008 s- 
6009 025006 012702 002704 MOV #BUFBAS ,R2 ; INITIALIZE THE DATA PATTERN TO BE 
6010 025012 105022 4$;: CLRB (R2)+ ; ALL NULLS. 
6011 025014 020227 003304 CMP R2, #BUFMID ; 
6012 025020 103774 BLO 4$ ; 
6013 
6014 3+ 
6015 ; Transmit a further 31 null characters which will cause 31 XOFF's to be 
5 ; generated. 
6018 025022 005267 157060 INC ERRNBR ;SET ERROR NUMBER TO 5506. 
6019 025026 010501 MOV R5,R1 ;PASS THE LINE NUMBER. 
6020 025030 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 


6021 025034 012703 000037 MOV #31. ,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 





a DLO OOOO 
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; HARDWARE TEST 


6022 025040 
ones 025044 


6033 025074 


6038 025100 
6039 025102 


6045 025130 


025132 
025136 
oes 025142 


025144 
025150 
025152 


6062 025154 
6063 025160 


6069 025162 
6070 025170 
025174 
6072 025176 
025204 


025210 
025210 
025212 


6027 025046 


004767 
103063 


005267 


005204 


005267 
004767 
103422 


122702 
001001 
005203 


020427 
002753 


016767 
022703 
001411 
012767 
012701 


104460 
000402 


| Seok if for BMP codes in the fifo, abort the test 


; TRANSMIT THE DATA PATTERN 
;ABORT THE TEST IF ERROR OUND DURING DMA TX. 


the XOFF's and the null characters to be received. 


;SET ERROR NUMBER TO 5507. 

;PASS TIME-OUT VALUE OF 300 MILLI SECS. 

sPASS THE ADDRESS OF THE CSR. 

;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 

;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
;PASS DELAY OF 5 MILLI SECS. 

;WAIT FOR XOFF TO GET INTO THE FIFO. 


ee empty, counting the number of XOFF characters 


;CLEAR CHARACTER COUNTER. 

;CLEAR THE XOFF FOUND COUNTER. 

sINDICATE TO TEST DATA.VALID BIT, TIME-OUT 1MS. 
;SET UP_ERROR NUMBER EACH TIME AROUND THE LOOP. 
sINDICATE TO CHECK RECEIVE BUFFER ae 
s;WAIT FOR RECEIVED CHAR OR MF asa 

;GO REPORT ERROR IF FIFO EMPTY 

s;COUNT THE CHARACTER. 


if any are found. 


; Save the BMP code on the queue to be reported later 


;SET ERROR NUMBER TO 5509. 
;CHECK IF WE HAVE GOT A BMP CODE. 
;GO REPORT THE ERROR IF WE FOUND A BMP CODE. 


;CHECK IF THE RECEIVED CHARACTER WAS AN XOFF. 
;BRANCH IF CHARACTER WAS NOT AN XOFF. 
; INCREMENT XOFF FOUND COUNT. 


including the XON have been removed. 


;CHECK IF WE HAVE REMOVED ALL THE CHARACTERS. 
;GO GET THE NEXT CHAR IF WE HAVE NOT FINISHED. 


; | Geek if the correct number of XOFF's were found in the fifo, 


;SET UP THE ERROR NUMBER TO 5510. 
;COMPARE EXPECTED XOFF COUNT WITH ACTUAL COUNT. 
sEXIT TEST IF SUCCESS. 


- FI3QLA - 
166714 JSR PC ,DODMA 
BCC 50$ 
3+ 
; Wait for 
157034 INC ERRNBR 
170454 MOV #170454,R1 
155160 MOV CSRA,R2 
171510 JSR PC, ,WAIBIS 
BCC 50$ 
900005 MOV #5,R4 
166620 JSR PC ,DELAY 
; Read the 
; that are foun 
CLR R4 
CLR R3 
170001 MOV #170001,R1 
012604 156770 6$: MOV #5508. , ERRNBR 
155122 MOV RBUFA, Re 
171450 JSR PC, WAIBIS 
BCC 50$ 
INC R4 
156750 ; INC —_ERRNBR 
166244 JSR PC, CHKBMP 
BCS 12$ 
; Check for XOFF character. 
000023 8S: CMPB #23, R2 
BNE 10$ 
INC 
; Check if all the characters 
000400 10$: CMP R4, #256. 
BLT 6$ 
; report error if count is incorrect. 
165420 156716 MOV 5510. ,ERRNBR 
000040 CMP #32. ,R3 
BEQ 60$ 
011636 156706 MOV #EROSO3, ERRBLK 
006744 MOV R 


12$: 
BR 60$ 


:SELECT THE CORRECT ERROR REPORTING ROUTINE. 
PASS THE MESSAGE TO BE REPORTED. 


#EM5402 ,R1 
ha THE ERROR “FIFO BAD, ALARM STGNAL DEFECTIVE”. 


; >>>>> ERROR <<<<<, 
TRAP CSERROR 


;ABORT THE TEST. 


SEQ 0149 
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HARDWARE TEST 


| 


6078 025214 
6079 025220 
6080 


6081 025224 
025224 
025224 


a 


- FI3QLA - 


004767 170562 
005067 155040 


104401 


50$: 
60$: 


JSR 
CLR 


ENDTST 


PC, TSABRT 
CTRLCF 


ee —— —— —- 


Hie 
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;REPORT TEST ABORTED. 


SEQ 0150 


ERROR # SHOWS REASON. 


;INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10034: 
TRAP CSETST 


Iie 
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| HARDWARE TEST 


025226 
025226 


025226 
025234 
025242 
025250 
025256 


025264 
025270 
025272 
025276 


025276 
025302 
025304 


025310 


025314 
025320 
025324 
025330 
025334 
025340 


000013 
012767 
012767 
012767 
012767 
012767 


004767 
103402 
000167 


004767 
103402 
000167 


004767 


000013 
177777 
000001 
012741 
007042 


166216 
000412 


166632 
000400 


166730 


156566 


155032 
155022 
156634 
156630 
156624 





SEQ 0151 


.SBTTL HARDWARE TEST - FI3QAI - 

Pettitt iit iiitt ttt ttt ttt itt i titi tit titi ttt titi tit itititttttt ttt ttt titi ttt ttt tt 
;* - FIFO 3/4 ALARM LEVEL ACTIVE/INACTIVE TEST - 

;* 
;* This test verifies that the DUT's fifo 3/4 level alarm system 

;* becomes active and inactive at the correct levels. 

;* Any BMP code found will invalidate the test and cause it to be aborted. 
;* However the BMP code will be placed on the BMP code queue, to be 

;* reported later. 

7* The characters are transmitted on the first available active line, in 
3k internal loopback mode. 

i+ 


ERE EEE EEE EEE KEKE EEE EEE ERE EERE EERE EEE EEE EERE EEE EEE EEE EEEEEEE EEE 


BGNTST ae 

TNUM == TNUM + 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (56) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #5601.,ERRNBR ;SET ERROR NUMBER TO 5601. 
MOV #EM5601,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


3* 

; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 

; This subroutine reports error >>>>> 5601 <<<<<, 


JSR PC,CLNRST s;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS 2s ;SKIP EXITING TEST A SUCCESSFUL RESET. 
JMP 60$ s;EXIT THIS TEST. 


; Find an active line on which to perform the test. 


? JSR PC,FINACT FIND AN ACTIVE LINE. 
BCS . +6 ;SKIP EXIT OF TEST IF ACTIVE LINE FOUND. 
JMP 60$ ;EXIT TEST. 


3+ 

; Initialize the 256 byte date pattern. 

; Ensure the data pattern is free from XON'’s or XOFF's to prevent errors. 

; Note: the first two characters and the last two characters will be the same. 


; JSR PC, INDTPX ;INITIALISE THE DATA PATTERN. 


4 Transmit a 256 character data pattern using DMA, on a single channel 
; at 38.4k baud, 8 bits per character, odd parity. 2 stop bits. 


; Set internal loopback, enable IAUTO and receiver on the selected line. 
; Transmit the first 191 characters on the first available active Line. 


INC ERRNBR ;SET ERROR NUMBER TO 5602. 

MOV #206 ,RO ;PASS INTERNAL LOPBCK, ENABLE RX AND IAUTO. 
JSR PC ,WTWLNC sINITILAISE THE LINE CONTROL REGISTER. 

MOV #177670,RO0 ;PASS THE LPR CONTENTS. 

JSR PC,WTWLPR ;SET THE LPR CONTENTS 10 38.4K BAUD. 

MOV #10. ,R4 sPASS DELAY TIME OF 10 MILLI SECONDS. 


ee ee - 


Jle2 


ce ee ee 
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6139 
6140 


025344 
025350 
025352 
025356 
025362 
025366 


025370 


025416 


025422 


025444 


025446 


025474 
025500 


025510 
025514 


94 0 
025542 


004767 
010577 


005005 
005004 
012703 


012700 


- FI3QAI - 
166350 


002704 
000277 
166372 


156512 
170454 
154636 
171166 


000005 
166276 


156460 


002704 
000001 
166314 


156434 
170012 
154560 
171110 


000005 
166220 


154536 


00030’ 


000003 
170005 
154514 
171042 


;* 
; Wait for 


; the fifo. 


2 ¢ 


MOV 


;¢ 


PC, DELAY 


DMA to complete, 


ERRNBR 
#170454 ,R1 
CSRA,R2 
PC, ,WAIBIS 
> 

#5,R 

PC, DELAY 


ERRNBR 
R5,R1 
#BUFBAS ,R2 
#1,R3 
PC,DODMA 
50$ 


;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
;COPY THE LINE NUMBER. 

;PASS THE START ue THE DATA PATTERN TO TX. 
;PASS THE LENGTH OF THE — PATTERN. 

; TRANSMIT THE DATA PATTE 

;EXIT IF ERROR FOUND DURING DMA TX. 


then wait for the last character to arrive in 


;SET ERROR NUMBER TO 5603. 

;PASS TIME-OUT VALUE OF 300 MILLI SECS. 
;PASS THE ADDRESS OF THE CSR. 

;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
;BRANCH IF FIFO EMPTY, ABORT THE TEST. 
;PASS DELAY OF 5S MILLI SECS. 

;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 


; Transmit a null character which will cause an XOFF to be generated. 


;SET ERROR NUMBER TO 5604. 

;PASS THE LINE NUMBER. 

;PASS THE START _* THE DATA PATTERN TO TX. 
;PASS THE NUMBER 0 

TX A NULL CHARACTER TO CAUSE AN XOFF. 

;ABORT THE TEST IF ERROR FOUND DURING DMA TX. 


the XOFF to be received before continuing the test. 


ERRNBR 
#170012,R1 
CSRA,Re2 
PC, ,WAIBIS 
50$ 

#5,R4 
PC,DELAY 
RS,@CSRA 


R5 

R4 

#192. ,R3 
#3,RO 
#170005 ,R1 


RBUFA,R2 
ee 


;SET ERROR NUMBER TO 5605. 

;PASS TIME-OUT VALUE OF 10 MILLI SECS. 

sPASS THE ADDRESS OF THE CSR. 

;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 

;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
;PASS DELAY OF 5 MILLI SECS. 

;WAIT FOR XOFF TO GET INTO THE FIFO. 


;SELECT THE LINE READY FOR TRANSMISSION. 


; Read three characters, transmit one character until the first 192 characters 
have been read from the fifo, ie until the half level is reached. 

Then read the fifo until empty. 

Count all XOFF's that are detected. 


;CLEAR THE TX FLAG. 
;CLEAR THE CHARACTER COUNTER. 
;SET UP READ COUNTER FOR THE FIRST 192 CHARS. 


;SET READ COUNTER. 


INDICATE TO TEST DATA.VALID BIT, TIME-OUT SMS. 


;INDICATE TO CHECK RECEIVE BUFFER REGISTER. 
s;WAIT FOR RECEIVED CHAR OR TIME-OUT. 

;EXIT LOOP IF TIME- AF FiFO EMPTY. 
;DECREMENT READ COUNTE 

;DECREMENT CHAR COUNT ER. 

;SKIP DISBL'G TX IF FIRST 192 CHARS NOT READ. 


SEQ 0152 


ee ee 


K1e 
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6196 
6197 


025544 


025550 
025556 


04 025562 


025564 
025570 
025572 


2 
025574 


025576 
025600 
025602 
025604 


025612 
9 


025614 


025650 


025652 
025660 
025664 
025666 
025674 


02 
025702 


025704 
025710 


025714 
025714 
025714 


052705 


012767 
004767 
103446 


122702 
001001 
005204 


005700 


0 
000721 


012767 
020427 
001411 
012767 
012701 


104460 
000402 


004767 
005067 


104401 


- FI3QAI - 


100000 


012746 
165624 


000023 


100000 


156266 
170012 
154412 
170742 


000005 
166052 


012750 
000077 


011636 
006744 


170072 
154350 


BIS #BIT15,R5 ;DISABLE ANY FURTHER TRANSMISSIONS. 
:¢ 
; Check if the read character is a BMP code. 
; If it is a BMP code save it on the queue to be reported later, and 
; abort the test. 
156330 8$: MOV #5606. ,ERRNBR ;SET UP ERROR NUMBER EACH TIME AROUND LOOP. 
JSR PC, CHKBMP CH ECK IF CHARACTER IS A BMP CODE. 
BCS 16$ ;GO REPORT ERROR AND ABORT TEST IF BMP FOUND. 
; * Check for XOFF character. If one is found, count it. 
; Transmit a null character until the first 192 chars have been read. 
10$: CMPB = #23,,R2 ;CHECK IF THE RECEIVED CHARACTER WAS AN XOFF. 
BNE 12$ ;BRANCH IF CHARACTER WAS NOT AN XOFF. 
INC R4 ; INCREMENT THE XOFF CHAR FOUND COUNTER. 
12$ TST RO ;CHECK READ ead ba SEE IF A CHAR CAN BE TX. 
BNE 6$ ; BRANCH IF 3 CH ARS N AVE NOT YET Pie READ. 
TST RS ;CHECK THE TRANSMISSION ENABLED FLAG. 
BMI 4$ ; SKIP Lp pig SEE A CHARACTER IF TX DISABLED. 
154432 MOV #100000,@TXCHA ;TX A NULL CHARACTER 
MOV R4,-(SP) ; SAVE THE XOFF COUNT ON THE STACK. 
;¢ 
; Wait for the character to be received before continuing the test. 
INC ERRNBR ;SET ERROR NUMBER TO 5607 
MOV #170012,R1 ;PASS TIME-OUT VALUE OF 10 MILLI SECS. 
MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
JSR PC, WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
BCC 50$ ;IF NO TX_ACTION WAS RECEIVED, ABORT THE TEST. 
MOV #5, Rs ;PASS DELAY OF 5 MILLI SECS. 
JSR PC, DELAY ;WAIT FOR XOFF TO GET INTO THE FIFO. 
MOV (SP)+,R4 ; RESTORE THE XOFF COUNT. 
BR 4$ ;GO RESET THE READ COUNT AND GET NEXT CHAR. 
3¢ 
; Check if the correct number of XOFF'’s were found in the fifo 
; Report error if count is incorrect. 
156226 14$: MOV #5608. ,ERRNBR ;SET ERROR NUMBER TO 5608. 
CMP R4,#63. ;COMPARE THE EXPECTED AND ACTUAL XOFF COUNTS. 
BEQ 60$ ;EXIT TEST IF SUCCESS. 
156216 MOV #ERO5S03, ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
MOV #EM5402,R1 ;PASS THE MESSAGE TO BE REPORTED. 
;REPORT THE ERROR "FIFO BAD, ALARM SIGNAL DEFECTIVE”. 
16$: ERROR ; >>>>> ERROR <<<<<, 
TRAP CS$ERROR 
BR 60$ ;EXIT THIS TEST. 
50$: JSR PC, TSABRT ;REPORT TEST ABORTED. ERROR # INDICATES FAULT. 
60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 


L10035: 
TRAP CsETS™ 


SEQ 0153 


ee ee 


ile 
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3 
6264 025716 
025716 


5 
6266 025716 


6270 025746 
ests 025754 


6 
6277 025762 
6278 025766 
6279 025770 
6280 025774 


3 
6284 025774 
otoe 026000 


0 
oes 026002 


6305 026026 


000014 
012767 
012767 
012767 
012767 
012767 
012767 


004767 
103402 
000167 


004767 
103165 


004767 


005267 
004767 
012700 
004767 
103150 


000014 
177777 
000001 
013105 
007110 
011636 


165520 
000360 


166134 


166236 


156074 
167640 
000341 
170066 


154342 
154332 
156144 
156140 
156134 
156130 


SEQ 0154 


.SBTTL HARDWARE TEST - FIHAVL - 
SOO ERR E EERE EERE EERE REE ERA R EERE ERED EER ER EERE EERE EERE ERE EERE EERE EEE 
- FIFO HALF LEVEL ACTIVE/INACTIVE TEST - 


ae 


;* 
;* This test checks that the DUT's fifo half level alarm system 

;* becomes active and inactive at the correct levels. 

;* Any BMP code found will invalidate the test and cause it to be aborted. 
;* However the BMP code will be placed on the BMP code queue, to be 

;* reported later. 

:* The characters are transmitted on the first available active line, in 
3 internal loopback mode 

k 


~EEKEREREREEEREREEERERERERER ERE ERE ERE ERE EERE ERE EERE EEE EEE EEE EEE 


BGNTST v2, 

TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (57) 

MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 


MOV #5701.,ERRNBR ;SET ERROR NUMBER TO 5701. 
MOV #EMS701,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
MOV #EROSO3,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 


; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 
; This subroutine reports error >>>>> 5701 <<<<<, 


JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS 2s ;SKIP EXITING TEST A SUCCESSFUL RESET. 
- JMP 60$ ;EXIT THIS TEST. 
3° 
; Find an active line on which to perform the test. 
JSR PC ,FINACT ;FIND AN ACTIVE LINE. 
BCC 60$ sEXIT IF NO ACTIVE LINES AVAILABLE. 


* Initialize the 256 byte date pattern. 
; Ensure the data pattern is free from XON's or XOFF's to prevent errors. 
; Note: the first two characters and the last two characters will be the same. 


: JSR PC, INDTPX ;INITIALISE THE DATA PATTERN. 


+ Fill the fifo by inners song 225 chars Cie 225 + 31 XOFF's). 
; Transmit data pattern using DMA, on a single channel 
; at 38.4k baud, 8 bits per character, odd parity, 2 stop bits. 


Set internal loopback, enable IAUTO and receiver on the selected line. 
; Transmit the 225 characters on the first available active line. 


INC ERRNBR ;SET ERROR NUMBER TO 5702. 
JSR PC,SETPAR ;SET UP PARAMETERS FOR TRANSMISSION. 
MOV #225. ,RO0 ;PASS LENGTH OF DATA PATTERN. 
JSR PC, TXDATP ; TRANSMIT DATA PATTERN. 
BCC 50$ ;EXIT IF ERROR FOUND DURING TX. 


ientinenedl 


Mle 
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6306 026030 
6307 


6311 026032 
6312 026036 
6313 026042 


8 
6319 026044 
6320 026050 


see 026070 


6330 026072 
6331 026076 
6332 026104 
6333 026110 
6334 026114 


6338 026116 


6343 026140 
6344 026142 


6348 026144 


010105 


005267 
004767 
103142 


005267 
oisiee 


0 
001125 


010577 
103115 


005267 
012700 
004767 
103106 
005267 
005701 
001100 


012700 


103065 


156050 
170610 


156036 
000202 
167230 


156020 


154144 


170536 


155764 
000003 
167156 


155746 


000076 


155730 
167732 


155716 
170456 


MOV 


R1,R5 ;COPY THE LINE NUMBER. 


*¥ Wait for DMA to complete, then wait for the last character to arrive in 


; the 


fifo. 


ERRNBR ;SET ERROR NUMBER TO 5703. 
PC,WAITTX ;WAIT FOR TRANSMISSION TO COMPLETE. 
50$ ;GO REPORT ERROR IF TX FAILED TO COMPLETE. 


* Read the first 130 characters from the fifo, if any XON’s are found 
; report the error. If any BMP codes are found then save them on the queue 
; and abort the test. 


154140 


a a ;SET ERROR NUMBER TO 5704. 

#130., ;PASS THE NUMBER OF CHARS TO READ. 
PC, READBX sREAD THE FIRST 130 CHARS FROM THE FIFO. 
50$ ;GO REPORT ERROR IF BMP CODE FOUND. 
ERRNBR ;SET ERROR NUMBER TO 5705S. 
Ri ;CHECK IF AN XON WAS FOUND. 
40$ ;G0 REPORT ERROR IF AN XON WAS FOUND. 


; Transmit a null character. 


MOV RS,@CSRA ;SELECT THE LINE READY ote Receeteeenann 
MOV #100000,@TXCHA ;TRANSMIT A NULL CHARACTE 
INC ERRNBR ;SET ERROR NUMBER TO $106. 

JSR PC ,WAITTX ;WAIT FOR TX TO COMPLET 

BCC 50$ ;G0 REPORT ERROR IF TX bi NOT COMPLETE. 

; Read three characters, to cause the XON to be generated. 

INC ERRNBR ;SET ERROR NUMBER TO 5707. 
MOV #3,RO ;SET THE READ COUNT TO 3. 

JSR PC ,READBX ;READ 3 CHARACTERS FROM THE 2 th 

BCC 50$ ;GO REPORT ERROR IF FIFO EMPTY 
INC ERRNBR ;SET ERROR pe gl TO 5708. 
TST R1 ;CHECK IF AN XON WAS FOUND. 

BNE 40$ ;GO REPORT ERROR IF AN XON WAS FOUND. 

; Transmit 62 characters to bracket the XON and fill the fifo with 191 chars. 

MOV #62. ,RO ;PASS LENGTH OF DATA PATTERN. 

MOV R5,R1 PASS THE LINE NUMBER. 
INC ERRNBR ;SET ERROR NUMBER TO 5709 

JSR PC, TXDATP ; TRANSMIT DATA PATTERN. 

BCC 50$ ;EXIT IF ERROR FOUND DURING TX. 

; Wait for DMA to complete, then wait for the last character to arrive in 
; the fifo. 

INC ERRNBR ;SET ERROR NUMBER TO 5710. 

JSR PC ,WAITTX ;WAIT FOR TX TO COMPLETE. 

BCC 50$ ;G0 REPORT ERROR IF TX FAILED TO COMPLETE. 


7° 
; Read the first 126 characters. 





SEQ 0155 


ee a -- 
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SEQ 0 
| HARDWARE TEST - FIHAVL - _ 
6363 ; Read the next 4 yt saat and check if they are in the following order 
esse ; NULL, XOFF, XON, 
6366 026176 005267 155704 INC ERRNBR ;SET ERROR NUMBER TO 5711. 
6367 026202 012700 000176 MOV #126. ,RO ;SET UP READ COUNTER. 
6368 026206 004767 167076 JSR PC ,READBX ;READ THE gis iy 126 CHARS. 
6369 026212 103v56 BCC $ :G0 REPORT THE ERROR IF FIFO EMPTY. 
6370 026214 005267 155666 INC ERRNBR ;SET ERROR NUMBER TO 5712. 
6371 0262 005701 TST Ri ;CHECK IF AN XON WAS FOUND. 
6372 026222 001050 BNE 40$ ;G0 REPORT ERROR IF AN XON WAS FOUND. 
6373 026224 005267 155656 INC ERRNBR ;SET ERROR NUMBER TO 5713. 
6374 026230 012701 006744 MOV #EM5402,R1 ;PASS THE MESSAGE TO BE REPORTED. 
6375 026234 016703 154004 MOV RBUFA,R3 ;GET THE RECEIVER BUFFER ADDRESS. 
6376 026240 011302 MOV (R3),R2 ;READ THE NULL CHARACTER FROM THE FIFO. 
6377 026242 120227 000000 CMPB- ER, ;CHECK IF tT ts A NULL CHARACTER. 
6378 026246 1036 NE 40$ ;GO REPORT THE ERROR IF NOT THE SAME 
6379 026250 005267 155632 INC ERRNBR ;SET ERROR NUMB 714. 
6380 026254 011302 MOV (R3),R2 ;READ THE XOFF FROM THE F 
6381 026256 120227 000023 CMPB ss R2,, #23 ;CHECK IF THE READ ee IS AN XOFF. 
6382 026262 001030 BNE 40$ ;GO REPORT THE ERROR f:} THE SAME. 
6383 026264 011302 MOV (R3),R2 ;READ THE XON FROM THE FIFO. 
6 026266 005267 155614 INC ERRNB ;SET ERROR NUMBER TO 5715. 
6385 026272 120227 000021 CMPB- ss R2, #21 ; CHECK IF THE a ‘ey s IS AN ae 
6386 026276 001022 BNE $ ;G0 REPORT T IF 
6387 026300 5267 155602 INC RNBR ;SET ERROR NUMBER TO 57 -— 
6388 026304 011302 MOV (R3),R2 ;READ THE NULL CHARACTER ae THE FIFO. 
6389 026306 120227 000000 CMPB-sR2, ;CHECK IF IT IS A NULL CHARACTER. 
eae 026312 001014 NE 40$ ;GO REPORT THE ERROR IF NOT THE SAME. 
6392 i¢ i ; 
oer ; Read the remaining characters from the fifo. 
ed 

6395 026314 012700 000075 6$: MOV #61. ,RO ;SET UP READ COUNTER. 
6396 026320 005267 155562 INC ERRNBR ;SET ERROR NUMBER TO te 
6397 026324 004767 166760 JSR PC ,READBX ;READ THE FIRST 61 CHARS. 
6398 026330 103007 BCC $ ;GO REPORT THE ERROR IF FIFO EMPTY. 
6399 026332 005267 155550 INC ERRNBR ;SET ERROR NUMBER TO 5718. 

026336 005701 TST Ri ;CHECK IF AN XON WAS FOUND. 
6401 026340 001001 BNE 40$ ;GO REPORT ERROR IF AN XON WAS FOUND. 
6402 026342 BR 60$ ;EXIT THE TEST. 
6403 026344 40$: ERROR ; >>>>> ERROR <<<cc 

026344 104460 TRAP CSERROR 
“ 026346 02 BR 60$ ;EXIT THE TEST. 
6406 026350 004767 167426 50$: JSR PC, TSABRT sREPORT TEST ABORTED. ERROR # INDICATES FAULT. 
<<. 026354 005067 153704 60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
6409 026360 ENDTST 

026360 L10036: 

026360 104401 TRAP CSETST 


— 
‘ 
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1 
6422 026362 
026362 


oases 026362 


6426 026370 
6427 026376 


026404 
6429 026412 


6453 026462 
54 026466 


6458 026472 
6459 026476 


6464 026502 
| 6465 026506 
| 6466 026512 


012767 
0000 


012767 


004767 
103165 


004767 


103132 


177777 
000015 
000001 
014401 
007156 


165062 


167674 
167046 


156430 
170250 


153536 
167530 


155400 
166404 


153674 


153670 
155500 
155474 
155470 


-SBTTL HARDWARE TEST 
eeeaeieeeenannenebbnnber +) ~190seees+ 04g 00+ aneeeeneeeetennnnnetnneeeetteL 


BREAK generation test - 


;* 


- BREAKB - 


3* This test verifies that all serial transmit lines can generate a break 
;* by setting the brk bit in the associated LNCTRL register. 
:* Use of the internal loopback feature of the DUARTS is made to minimise 
:* any external effects caused on the serial lines by this test. 
3* Framing error detection is used to indicate the presence of a break, 
3* by setting the appropriate bit in the RBUF register. 
Teriiiiitiititiitiiiiiiitiitiiit titi iiiiti titi iiiiiiititiiiiiiiiiiiiititiiiiii 
BGNTST 
T13:: 
MOV #-1,CTRLCF s INDICATE THAT WE ARE IN A TEST. 
TNUM == TNUM «+ ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM SSET UP THE TEST NUMBER. (64) 
MOV #1, ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #6401. »ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #€M640i, ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 


7° 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR. 

; This subroutine reports error >>>>> 6401 <<<<<, 


JSR 
BCC 


PC,CLNRST 
60$ 


sRESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
sEXIT TEST IF FATAL ERROR FOUND. 


; Set up Device Under Test (DUT) to: 
3 Disable transmission and reception interrupts. 
3 Delay for 10 milli-seconds to allow time to clear any breaks. 


JSR PC, TXIEO ;DISABLE TRANSMISSION INTERRUPTS. 

JSR C,RXIEO ;DISABLE RECEPTION INTERRUPTS. 

MOV @MAPLNS RS Pass ACTIVE LINE BIT MAP. 

MOV #200 ,RU PASS INTERNAL LOOPBACK MODE. 

JSR PC ,WTWLNC :SELECT INTERNAL LOOPBACK ,DISABLE DMA. 

MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI S SECONDS. 

JSR PC, DELAY ;DELAY TO ALLOW ANY BREAKS TO BE CLEARED. 
* Set y ee we an reception parameters for all lines. 
3 36006 beud,8 char,1 stopbit,no parity. 
’ MOV  #156430,RO ;SET UP BAUD RATE,ETC. 

JSR PC,WTWLPR ;SET COMMUNICATION PARAMETERS ON ALL LINES. 
; Enable transmitters on all active lines. 
ge 

MOV ACTLNS,RS ;PASS ACTIVE LINE BIT M 

JSR PC, TXENBL ;ENABLE TRANSMISSIONS oN ALL LINES. 


; Purge the FIFO of any unwanted characters. 
; This routine reports errors with numbers >>>>> 6402 thru 6404 <<<<<, 


INC 





ERRNBR 
PC,PUFIFR 
60$ 


;SET ERROR NUMBER TO 6402. 
;PURGE FIFO. 
;ABORT TEST IF FIFO WILL NOT CLEAR. 


SEQ 0157 
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HARDWARE TEST 


3 
026514 


026544 


026550 
026552 
026556 


026562 


026610 
026610 
026612 
026614 
026616 
026620 


026632 


012701 
104455 
014405 
007156 
011742 
006303 
005202 


020227 
001334 


012705 


- BREAKB - 


165150 


000214 
170130 


000005 
165126 
153446 
020000 


007205 


000010 


165042 





: 
$: 


SEQ 0158 


; Verify break generation on individual lines. 


Clear breaks on all lines. 
Delay for 10 milli-seconds to allow time for any breaks to be cleared. 


Select line,set break bit in LNCTRL register. 
Test for a character in the FIFO with frame error. 
2 CLR R2 ost LINE COUNTER. 
MOV #1,R3 ET UP ACTIVE LINE BIT MASK. 
4$: BIT R3,ACTLNS SCHECK IF THIS LINE IS ACTIVE. 
BEQ 8$ ;GO SELECT NEXT LINE IF THIS en! IS INACTIVE. 
MOV #200 ,RO ;SET UP PARAMETER TO CLEAR BREAK BI 
JSR PC ,WTWLNC CLEAR BREAK BIT,RESELECT INTERNAL LOOPBACK. 
MOV #10. ,R4 PASS DELAY TIME OF 10 MILLI SECONDS. 
JSR PC ,DELAY ;DELAY TO ALLOW BREAKS TO BE CLEARED. 
» Set break bit on selected line. 
; Set up parametirs to test for the frame error bit set in RBUF. 
; Time-out = 5 milli seconds. 
; Call routine to check for condition found. 
6$: MOV R3,R5 ;COPY ACTIVE LINE BIT M4SK. 
MOV #214,RO0 ;SET BREAK ,RESELECT LOOPBACK, ENABLE RECEPTION. 
JSR PC,WTWLNC ;SET BREAK ON SELECTED LINE. 
: Delay for 5 ms to allow time fur break to be generated and received. 
Verify reception of a character with frame error bit set. 
MOV #5. ,R4 4 DELAY VALUE TO 5 MILLI SECS. 
JSR PC ,DELAY LLOW TIME FOR CHARACTER RECEPTION. 
MOV ARBUFA,R eet CHARACTER FROM RBUF REGISTER. 
BIT #BIT13,RO : CHECK FOR FRAME ERROR BIT. 
BNE 8$ ;SKIP ERROR REPORT IF SET. 
MOV #EM6402 ,R1 ;SELECT MESSAGE TO BE PRINTED. 
;REPORT ERROR"BREAK NOT RECEIVED ON LINE #nn" 
ERRDF 6405,EM6401,ER6401 ; >>>>> ERROR #6405 <<<<<, 
TRAP CSERDF 
-WORD 6405 
-WORD EM6401 
-WORD €ER6401 
8$: ASL R3 ; SHIFT e MASK FOR NEXT LINE. 
INC R2 sNEXT L 
CMP R2, #NUMLNS CHECK FOR MAX LINE COUNT. 
BNE 4$ ;IF <>,LOOP TO CHECK NEXT “LINE 


i 
ES Pe 


; Verify break generation on all lines simultaneously. 
; Clear breaks on all lines 

; Delay for 10 1 | pe ame to allow time for any breaks to be cleared. 
; Purge the FIFO. 

; Set break bit in LNCTRL registers on all active lines. 

; Test for characters in the FIFO with frame error. 


MOV #MAPLNS ,RS ;SET UP LINE TO CLEAR BREAKS ON. 

MOV #200 ,RO ;SET UP PARAMETER TO CLEAR BREAK BITS. 

JSR PC ,WTWLNC ;CLEAR BREAK BIT,RESELECT INTERNAL LOOPBACK. 
MOV #10. ,R4 sPASS DELAY TIME OF 10 MILLI SECONDS. 

JSR PC,DELAY s;DELAY TO ALLOW BREAKS TO BE CLEARED. 


a RS A a 
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026656 
026662 


026664 
026670 
026674 


026762 
026762 
026764 
026766 
026770 
026772 


026774 
027000 
027004 
027004 
027004 
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SEQ 0159 
- BREAKB - 

3* 

; Purge the FIFO of unwanted characters. 
004767 166152 JSR PC ,PUFIFO ;PURGE FIFO. 
103044 BCC 50$ ;GO REPORT ERROR IF FAILED TO CLEAN_OUT FIFO. 

Set up parameters for setting the break bit on all active lines. 

; Then call routine to do it. 
016705 153344 10$: MOV ACTLNS,RS ;SET UP ACTIVE LINE BIT MASK. 
012700 000214 MOV #214,RO ;SET BREAK,RESELECT LOOPBACK ,ENABLE RECEPTION. 
004767 170012 JSR PC ,WTWLNC ;SET BREAK ON SELECTED LINES. 

; Delay for 10 milli seconds,to allow time for reception. 

a Test for characters in fifo with frame error bit set. 
012704 000012 MOV #10. ,R4 ;SET DELAY VALUE TO 10 MILLI SECS. 
004767 165010 JSR PC ,DELAY ;ALLOW TIME FOR CHARACTER RECEPTION. 
010502 MOV R5,R2 ;COPY ACTIVE LINE BIT MAP. 
004767 165424 JSR PC ,MAPCNT ;COUNT THE NUMBER OF LINES AVAILABLE. 
017701 153322 12$: MOV ARBUFA,R1 ;GET CHARACTER FROM RBUF REGISTER. 
100011 BPL 14$ ;BRANCH IF DATA_VALID NOT SET. 
032701 020000 BIT #B1IT13,R1 ;CHECK FOR FRAME ERROR BIT. 
001406 BEQ 14$ ;D0 NOT CLR FLG FOR THIS LINE IF FRAME BIT CLR. 
000301 SWAB R1 ;GET LIN: NUMBER IN LOW BYTE 
042701 177400 BIC #177400,R1 ;CLEAR EVERTHING BUT THE LINE NUMBER. 
004767 165350 JSR PC,LINBIT ;CALC BIT MASK FROM LINE NUMBER. 
040005 BIC RO,RS ;CLEAR LINE FLAG. 
005302 14$: DEC Re ;DECREMENT THE LINE NUMBER COUNTER. 
001362 BNE 12$ ;LOOP TO GET THE NEXT CHARACTER. 
005705 TST R5 ;CHECK IF ANY BREAKS ~ RECEIVED. 
001411 BEQ 60$ ,EXIT TEST IF ALL CLEAR 
012701 007205 MOV #EM6402 ,R1 : SELECT MESSAGE TO BE PRINTED. 

;REPORT ERROR "BREAK NOT RECEIVED ON LINE #nn“. 

ERRDF 6406,EM6401,ER6401; >>>>> ERROR #6407 <<<<<, 
104455 TRAP CSERDF 
014406 -WORD 6406 
007156 -WORD EM6401 
011742 -WORD ER6401 
000402 BR 60$ ;EXIT THE TEST. 
004767 167002 50$: JSR PC, TSABRT ;ABORT THE TEST. 
005067 153260 60$: gbtst CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
L10037: 

104401 TRAP CSETST 


a a eC DU rrr 
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SEQ 0160 
| HARDWARE TEST - NORERR - 
| 
6561 .SBTTL HARDWARE TEST - NORERR - 
6562 Petit titi titi titi tt titi t ii titit itt ti titiitt ttt iti tititiiiiittt ttt ttt tt ttt tt TT 
| seek ;* - NO OVERRUN ERROR TEST - 
:* 
6565 7* This test verifies that the DUT will not report data overrun 
6566 i* errors when they do not occurr. 
6567 ;* This test puts +56 characters in the DUT FIFO plus 4 in each active 
6568 3* UART and verifies that no overrun errors are reported. 
6569 ;* Any BMP code found will invalidate the test and cause it to be aborted. 
6570 7* However the BMP code will be placed on the BMP code queue, to be 
cers ;* reported later. 
;* 
6573 ett tt ttt tt ttitt ttt ttt titi ttt ti tttttttit ttt titt titi tititiittt titi ttt ti ttt ttt tt: 
6574 
6575 027006 BGNTST 
027006 T14 
6576 000016 TNUM == TNUM « 1 ; INCREMENT THE ASSEMBLY TIME. TEST COUNTER. 
6577 027006 012767 000016 153252 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (66) 
6578 027014 012767 177777 153242 MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST 
6579 027022 012767 000001 155054 MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
6580 027030 012767 014711 155050 MOV #6601. ,ERRNBR ;SET ERROR NUMBER TO 6601. 
sens 027036 012767 007246 155044 MOV #EM6601,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
3¢ 
6583 ; Reset the DUT to a known state, remove the status codes from the fifo. 
6584 ; Clear TX and RX interrupt enable bits in the CSR. 
ores ; This subroutine reports error >>>>> 6601 <<<<<., 
6586 3° 
6587 027044 004767 164436 JSR PC,CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
6588 027050 103402 BCS +6 ;SKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
fa 44 027052 000167 000422 JMP 60$ ;EXIT THE TEST, FATAL ERROR WAS FOUND. 
6 :¢ 
6591 ; Find an active line on which to perform the test. 
6592 ; Initialize the 256 byte data pattern. 
6593 $- 
6594 027056 004767 165052 JSR PC,FINACT ;FIND AN ACTIVE LINE. 
6595 027062 103402 BCS .+6 ;SKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
6596 027064 000167 000410 JMP 60$ ;EXIT THE TEST, FATAL ERROR WAS FOUND. 
dd 027070 004767 165120 JSR PC, INDATP sINITIALISE DATA PATTERN. 
659 3° 
6599 ; Transmit a 265 character data pattern using DMA, on a single channel 
6600 ; at 38.4k baud, 8 bits per character, odd parity, 2 stop bits. 
6601 :- 
6602 Hid 
6603 ; Set internal loopback on the selected line. 
ooea ; Transmit the data pattern on the first available active line. 
6 ie 
6606 027074 005267 155006 INC ERRNBR ;SET THE ERROR REPORT NUMBER TO 6602. 
6607 027100 012700 000204 MOV #204 ,RO ;PASS PARAMETER FOR INTERNAL LOPBCK,ENABLE RX. 
6608 027104 004767 167602 JSR PC ,WTWLNC aT TTL ATSE THE LINE CONTROL REGISTER. 
6609 027110 012700 177670 MOV #177670, RO PASS THE LPR CONTENTS. 
6610 027114 004767 167622 JSR PC, WTWLPR iSET THE LPR CONTENTS TO 38.4K BAUD. 
6611 027120 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
6612 027124 004767 164570 JSR PC ,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
6613 027130 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
| 6614 027134 012703 000400 MOV #BUFMID-BUFBAS, R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
6615 027140 004767 164614 JSR PC ,DODMA ; TRANSMIT THE DATA PATTERN. 
| 


6616 027144 103153 BCC 50$ ;EXIT IF ERROR FOUND DURING DMA TX. 
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| SEQ 0161 
, HARDWARE TEST - NORERR - 
| 6617 i 
6618 ; Wait for DMA to complete, then wait for the last character to arrive in 
rh ; the fifo. 
6621 027146 005267 154734 INC ERRNBR ;SET ERROR NUMBER TO 6503. 
6622 027152 012701 170536 MOV #170536,R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
6623 027156 016702 153060 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
6624 027162 004767 167410 JSR PC,WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET 
6625 027166 103142 BCC 50$ ; ABORT THE TEST IF TIME-OUT ON DMA COMPLETION. 
6626 027170 012704 000005 MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
rr 3 027174 004767 164520 JSR PC DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
6629 i¢ 
oeae ; Transmit 4 characters on each active line. 
6632 027200 016705 153030 MOV ACTLNS,RS ;ALTER PARAMETERS FOR ALL ACTIVE LINES. 
6633 027204 012700 000204 MOV #204 ,RO ;PASS PARAMETER FOR INTERNAL LOPBCK,ENABLE RX. 
6634 027210 004767 167476 JSR PC ,WTWLNC ae a Aas THE LINE CONTROL REGISTER. 
6635 027214 012700 177670 MOV #177670,RO PASS THE LPR CONTENTS. 
6636 927220 004767 167516 JSR PC,WTWLPR SET THE LPR CONTENTS TO 38.4K BAUD. 
6637 027224 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
gs! 027230 004767 164464 JSR PC ,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
6640 027234 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
6641 0272490 012703 000004 MOV #4,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
6642 027244 0050C1 CLR Ri ;CLEAR THE LINE COUNTER. 
6643 027246 005267 154634 INC ERRNBR ;SET ERROR NUMBER TO 6604. 
6644 027252 010100 2s: MOV R1,RO 
6645 027254 006300 ASL RO ;CALCULATE THE LINE OFFSET FROM THE LINE #. 
6646 027256 036067 002370 152750 BIT ST TVEL. CRD, ACTLNS ;TEST FOR THIS LINE BEING ACTIVE 
6647 027264 001403 BEQ 4$ ; SKIP THE TX ON THIS LINE IF IT IS NOT ACTIVE 
6648 027266 004767 164466 JSR PC,DODMA ; TRANSMIT THE 5S CHAR DATA PATT 
6649 027272 103100 BCC 50$ ;ABORT IF ERROR FOUND DURING DMA TX 
6650 027274 005201 4$: INC Ri ; INCREMENT THE LINE COUNTER. 
6651 027276 020127 000010 CMP R1, #NUMLNS ;TEST FOR ALL POSSIBLE LINES HANDLED 
oes 027302 002763 BLT 2s ;LOOP IF NOT ALL LINES HANDLED. 
66 
6654 027304 005267 154576 INC ERRNBR ;SET ERROR NUMBER TO 6605. 
6655 027310 012701 170040 MOV #170040,R1 ;PASS TIME-OUT VALUE OF 32 MILLI SECS. 
6656 027314 016702 152722 MOV CSRA,R2 ey THE ADDRESS OF THE CSR. 
6657 027320 004767 167252 JSR PC, WAIBIS WAIT FOR A DMA TO COMPLETE, TX_ACTION SET 
6658 027324 103063 BCC 50$ ABORT THE TEST IF TIME-OUT ON OMA COMPLETION. 
6659 027326 012704 000005 MOV 25°R ;PASS DELAY OF 5S MILLI SECS. 
<< 027332 004767 164362 JSR PC DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
6 i? 
6662 ; Read the FIFO wt ary pH overrun errors. Report errors if found. 
ose ; Abort the test if a BMP code was found in the fifo. 
6665 027336 016702 152672 MOV ACTLNS ,R2 
6666 027342 004767 164774 JSR PC ,MAPCNT ;GET THE NUMBER OF ACTIVE LINES. 
6667 027346 006302 ASL Re 
6668 027350 006302 ASL R2 ;MULTIPLY NUMBER OF ACTIVE LINES BY 4 
6669 027352 012705 000400 MOV #256. ,R5 
6670 027356 060205 ADD R2,R5 ;CALCULATE NUMBER OF CHARACTERS TO RX. 
6671 027360 005004 CLR R4 ;CLEAR THE CHARACTER COUNTER 
6672 027362 012767 014716 154516 6%: MOV #6606. ,ERRNBR SET UP ERROR NUMBER EACH TIME AROUND LOOP. 
; 6673 027370 017702 152650 MOV ARBUFA,R2 ;READ A CHARACTER FROM THE FIFO. 
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| 
' 
SEQ 0162 =O! 
| HARDWARE TEST - NORERR - | 
er 027374 100032 BPL 10$ ;EXIT THE READ LOOP IF THE FIFO IS EMPTY. 
6676 ; | Gee if the read character is a BMP code. 
6677 ; If it is a BMP code save it on the queue to be reported later, and 
pod ; abort the test. 
6680 027376 004767 164004 JSR PC, CHKBMP ;CHECK IF CHARACTER IS A BMP CODE. | 
6681 027402 103002 BCC 8$ ;BRANCH IF NOT A BMP CODE. | 
6682 027404 ERROR : >>>>> ERROR #6606 <<<<<. i 
027404 104460 TRAP CSERROR 
rer 027406 000434 BR 60$ ;EXIT THIS TEST. 
6685 027410 005267 154472 8$: INC ERRNBR ;SET ERROR NUMBER TO 6607. 
6686 027414 005204 INC R4 ;COUNT THIS CHARACTER. 
6687 027416 020405 CMP R4,R5 ;COMPARE # OF CHARS WITH MAX # OF CHARS. 
6688 027420 003025 BGT 50$ ;ABORT TEST IF TOO MANY VALID CHARS READ. 
6689 027422 032702 040000 BIT #BIT14,R2 ;TEST THE OVERRUN BIT OF THE READ CHAR. 
6690 027426 001755 BEQ 6$ ;LOOP TO READ THE NEXT CHAR IF NO ERROR. 
6691 027430 005267 154452 INC ERRNBR ;SET ERROR NUMBER TO 6608. 
6692 027434 012767 012040 154450 MOV #ER7801,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE. 
6693 027442 012701 007274 MOV #EM6602 ,R1 ;PASS THE MESSAGE TO BE REPORTED. 
6694 027446 010203 MOV R2,R3 
6695 027450 000303 SWAB R3 
6696 027452 042703 177760 BIC #177760 ,R3 ;GET FAILING LINE NUMBER. 
6697 ;REPORT “OVERRUN ERROR REPORTED WHEN NONE FORCED, ON LINE nn..." 
6698 027456 ERROR ; >>>>> ERROR #6608 <<<<<. 
027456 104460 TRAP CSERROR 
one 027460 000740 BR 6$ ;LOOP TO READ THE NEXT CHAR. 
6 
6701 027462 012767 014721 154416 10$: MOV #6609. ,ERRNSR ;SET ERROR NUMBER TO 6609. 
6702 027470 020405 CMP R4,R5 ;COMPARE NUMBER OF CHARS READ WITH EXPECTED. 
6704 
6705 027474 004767 166302 50$: JSR PC, TSABRT ;ABORT THE TEST, NON-RELATED TEST ERROR FOUND. 
6706 027500 005067 152560 60$: CLR CTRLCF s INDICATE THAT WE ARE NOT WITHIN A TEST. 
6707 027504 ; ENDTST 
027504 L10040: 
027504 104401 TRAP CSETST 


6703 027472 001402 BEQ 60$ ;EXIT TEST WITHOUT ABORT IF CORRECT # OF CHARS. 
| 
| 
| 
' 
| 
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HARDWARE TEST 


6723 027506 
027506 


6725 027506 
6726 027514 
6727 027522 
6728 027530 
6729 027536 


6735 027544 
6736 027550 
6737 027552 


6742 027556 
6743 027562 
6744 027564 
6745 027570 


6754 027574 
6755 027600 
6756 027604 
6757 027610 


000017 
012767 
012767 
012767 
012767 
012767 


004767 
103402 
000167 


004767 
103402 
000167 
004767 


103402 


000017 
177777 
000001 
015055 
007346 


163736 
000650 


164352 


000636 
164420 


164114 


152552 
152542 
154354 
154350 
154344 





SEQ 0163 


.SBTTL HARDWARE TEST - ORERR - 
7 goo aoa ogiio igi i iio ii toi ii iki tte 
- OVERRUN ERROR TEST - 


This test verifies that the DUT will report data overrun errors when 
they occurr. 

This test puts 256 characters in the DUT FIFO plus 5 in each active 
UART and verifies that overrun errors are reported on all active lines. 
Any BMP code found will invalidate the test and cause it to be aborted. 
However the BMP code will be placed on the BMP code queue, to be 
reported later. 


(eee eee ee eH 


EKER EEE REE EEE EEE EEE ERE KEE ERE EE ERERERERE EERE EERE EE EEE ERE EERE EEE 


BGNTST 
T15:: 


TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME “TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (67) 

MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST 

MOV #1,ERRTYP ;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #6701.,ERRNBR ;SET ERROR NUMBER TO 6701. 

MOV #EM6701,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


;¢ 
; Reset the DUT to a known state, remove the status codes from the fifo. 
; Clear TX and RX interrupt enable bits in the CSR 

; This subroutine reports error >>>>> 6701 <<<<<, 


JSR PC. CLNRST ;RESET THE DHV11-M, REPORT ANY ERRORS FOUND. 
BCS +6 ;SKIP EXIT OF TEST IF NO FATAL ERROR FOUND. 
JMP 60$ ;EXIT THE TEST, FATAL ERROR WAS FOUND. 


Hid 
; Find an active line on which to perform the test. 
; Initialize the 256 byte data pattern. 


JSR PC ,FINACT sFIND AN ACTIVE LINE. 

BCS . +6 ;IF ACTIVE LINE IS FOUND, DON‘T ABORT TEST. 
JMP 60$ ;ABORT THE TEST, NO ACTIVE LINES WERE FOUND. 
JSR PC, INDATP s;INITIALISE DATA PATTERN. 


, “Transmit a 265 character data pattern using DMA, on a single channel 
; at 38.4k baud, 8 bits per character, odd parity, 2 stop bits. 


;* 
; Set internal loopback on the selected line. 
; Transmit the data pattern on the first available active line. 


INC ERRNBR ;SET ERROR NUMBER TO 6702. 

MOV #204 ,RO PASS PARAMETER FOR INTERNAL LOPBCK,ENABLE RX. 
JSR PC ,WTWLNC sINITILAISE THE LINE CONTROL REGISTER. 

MOV #177670,RO ;PASS THE LPR CONTENTS. 

JSR PC,WTWLPR ;SET THE LPR CONTENTS 10 38.4K BAUD. 

MOV #10. ,R4 sPASS DELAY TIME OF 10 MILLI SECONCS. 

JSR PC,DELAY a FOR LNCTRL AND LPR REGS TO BE UPDATED. 
MOV #BUF BAS ,R2 PASS THE START OF THE DAYA PATTERN TO TX. 

MOV #BUFMID-BUFBAS, RS Fe THE LENGTH OF THE DATA PATTERN, 
JSR PC ,DODMA TRANSMIT THE DATA PATTERN. 
BCS 6 vIF NO ERROR FOUND DURING DMA TX, DON'T ABORT. 


-_4 
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SEQ 0164 
| HARDWARE TEST - ORERR - 
da 027646 000167 000550 JMP 50$ ;ABORT TEST, ERROR FOUND DURING DMA TX. 
;¢ 
6767 ; Wait for DMA to complete, then wait for the last character to arrive in 
res ; the fifo. 
6770 027652 005267 154230 INC ERRNBR ;SET ERROR NUMBER TO 6703. 
6771 027656 012701 170536 MOV #170536,R1 ;PASS TIME-OUT VALUE OF 350 MILLI SECS. 
6772 027662 016702 152354 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
6773 027666 004767 166704 JSR re, WAIBIS ;WAIT FOR DMA TO COMPLETE, TX_ACTION SET. 
6774 027672 103402 BCS +6 ;IF NO TIME-OUT ON DMA COMPLETION, DON'T ABORT. 
6775 027674 000167 000522 JMP 50$ ; ABORT TEST, TIME-OUT ON DMA COMPLETION. 
6776 027700 012704 000005 MOV #5,R4 ;PASS DELAY OF 5 MILLI SECS. 
2h 027704 004767 164010 JSR PC, DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
otras ; Transmit 5 characters on each active line. 
6781 027710 016705 152320 MOV ACTLNS,RS ;ALTER PARAMETERS FOR ALL ACTIVE LINES. 
6782 027714 012700 000204 MOV #204 ,RO ;PASS PARAMETER FOR INTERNAL Leek RX. 
6783 027720 004767 166766 JSR PC ,WTWLNC ;INITILAISE THE LINE CONTROL REGISTER 
6784 027724 012700 177670 MOV #177670,RO ;PASS THE LPR CONTENTS. 
6785 027730 004767 167006 JSR PC,WTWLPR ;SET THE LPR CONTENTS TO 38.4K BAUD. 
6786 027734 012704 000012 MOV #10. ,R4 ;PASS DELAY TIME OF 10 MILLI SECONDS. 
244 027740 004767 163754 JSR PC ,DELAY ;WAIT FOR LNCTRL AND LPR REGS TO BE UPDATED. 
6789 027744 012702 002704 MOV #BUFBAS ,R2 ;PASS THE START OF THE DATA PATTERN TO TX. 
6790 027750 012703 000005 MOV #5,R3 ;PASS THE LENGTH OF THE DATA PATTERN. 
6791 027754 005001 CLR R1 ;CLEAR THE LINE COUNTER. 
6792 027756 005267 154124 INC ERRNBR ;SET ERROR NUMBER TO 6704. 
6793 027762 010100 2s: MOV R1,RO 
6794 027764 006300 ASL RO ;CALCULATE LINE OFFSET FROM THE LINE # 
6795 027766 036067 002370 152240 BIT | hati ACTLNS ;TEST FOR THIS LINE BEING ACTIVE. 
6796 027774 001405 BEQ ;SK IP THE TX ON THIS LINE IF IT IS NOT ACTIVE. 
6797 027776 004767 163756 JSR Pe, DODMA ; TRANSMIT THE S CHAR DATA PATTERN 
6798 030002 103402 BCS +6 ;1F NO TIME-OUT ON DMA COMPLETION. DON'T ABORT. 
6799 030004 000167 000412 JMP 50$ ;ABORT TEST, TIME-OUT ON DMA COMPLETION. 
6800 030010 005201 4$: INC R1 ; INCREMENT THE LINE NUMBER COUNTER. 
6801 030012 020127 000010 CMP R1,#NUMLNS ;TEST FOR ALL POSSIBLE LINES HANDLED 
res | 030016 002761 BLT 2$ ;LOOP IF NOT ALL LINES HANDLED. 
6804 030020 005267 154062 INC ERRNBR ;SET ERROR NUMBER TO 6705. 
6805 030024 012701 170040 MOV #170040,R1 ;PASS TIME-OUT VALUE OF 32 MILLI SECS. 
6806 030030 016702 152206 MOV CSRA,R2 ;PASS THE ADDRESS OF THE CSR. 
6807 030034 004767 166536 JSR PC,WAIBIS ;WAIT FOR A DMA TO COPLE TE TX_ACTION SET. 
6808 030040 103170 BCC 50$ ;ABORT THE TEST IF TIME-OUT ON OMA COMPLETION. 
6809 030042 012704 000005 MOV #5,R4 iPASS DELAY OF 5 MILLI SECs. 
$000 030046 004767 163646 JSR PC,DELAY ;WAIT FOR LAST CHAR TO ARRIVE IN THE FIFO. 
6812 ; "Read 256 chars from the FIFO checking for BMP codes. 
sett ; Abort the test if a BMP code was found in the fifo. 
6815 030052 012704 000400 MOV #256. ,R4 ;SET UP THE CHARACTER COUNTER. 
6816 030056 012767 015062 154022 6$: MOV #6706. ,ERRNBR ;SET UP ERROR NUMBER EACH TIME AROUND LOOP. 
6817 030064 017702 152154 MOV ARBUFA,R2 ;READ A CHARACTER FROM THE FIFO. 
6818 030070 100154 BPL 50$ ;ABORT THE TEST IF DATA.VALID IS CLEAR. 
6819 030072 005267 154010 INC ERRNBR ;SET ERROR NUMBER TO 6707. 
6820 030076 004767 163304 JSR PC ,CHKBMP ;CHECK IF CHARACTER IS A BMP 


CODE . 
; 6821 030102 103545 BCS 243 ;REPORT ERROR AND ABORT TEST IF A BMP CODE. 





NN ooo —— ee 


‘ 
ee eee — 


ee wee ee 
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ee oe eee = = 


SEQ 0165 

| HARDWARE TEST - ORERR - 

6822 030104 005304 DEC RG ;COUNT THIS CHARACTER. 

roa ty 030106 001363 BNE 6$ ;LOOP IF NOT 256 CHARS READ FROM FIFO. 

once ; Read the remaining and verify 1 overrun plus 1 char from each line. | 

6827 030110 005004 CLR R4 ;CLEAR THE OVERRUN ERROR FLAGS. ! 

6828 030112 012700 003744 MOV ai ah oe | 

6829 030116 004767 163406 JSR PC,CLR ;CLEAR RX CHAR COUNT TABLE. 

6830 030122 012767 015064 153756 8$: MOV #6708. TP RRNBR :SET UP ERROR NUMBER EACH TIME AROUND LOOP. i 

6831 030130 017702 152110 MOV ORBUFA.R2 ;READ A CHARACTER FROM THE FIF i 

6832 030134 100047 BPL 14$ ‘60 ANALYZE THE wy. IF ALL CHARS READ. 

6833 030136 004767 163244 JSR PC, CHKBMP ;CHECK IF CHAR IS A BMP # 

6834 030142 103525 BCS 24$ ;REPORT ERROR AND ABORT TEST IF A BMP CODE. 

6835 030144 005267 153736 INC ERRNBR ;SET ERROR NUMBER TO 6709. | 

6836 030150 010200 MOV R2,RO 

6837 030152 000300 SWAB. RO 

6838 030154 042700 177760 BIC #177760,RO ;CALCULATE THE LINE NUMBER OF THE CHAR. 

6839 030160 006300 ASL RO ;FORM WORD TABLE OFFSET FOR TABLE rr 

6840 030162 042702 007400 BIC #7400 ;REMOVE LINE NUMBER FROM THE READ CHA 

6841 030166 036067 002370 152040 BIT BITTBL CRO), ACTLNS ;TEST FOR ACTIVE LINE. 

6842 030174 001512 BEQ 50$ ; ABORT TEST IF FOR INACTIVE LINE. 

6843 030176 005267 153704 INC ERRNBR ;SET ERROR NUMBER TO 6710. 

6844 030202 005760 003744 TST RXCNTBC(RO) ;CHECK THE RX CHAR COUNTER FOR THIS LINE. 

6845 030206 001006 BNE 10$ ;1S THIS FIRST CHAR ON LINE? 

6846 030210 020227 140000 CMP R2, #140000 ;YES, TEST FOR NULL CHAR WITH OVERRUN. 

6847 030214 001414 BEQ 12$ 31S CHAR A NULL? 

6848 030216 056004 002370 BIS BITTBLCRO),R4 ;NO, SET THE OVERRUN BIT ERROR FLAG FOR LINE. 

6849 030222 000411 BR 12$ ;GO COUNT THE CHAR AND CONTINUE. 

6850 030224 026027 003744 000004 10$: CMP RXCNTBC(RO), #4 

6851 030232 002073 BGE 50$ 35TH CHAR ON THIS LINE? YES, ABORT. 

6852 030234 032702 040000 BIT #BIT14,R2 ;NO, CHECK OVERRUN BIT. 

6853 030240 001402 BEQ 12$ 31S OVERRUN BIT CLEAR? YES, GO COUNT CHAR. 

6854 030242 056004 002370 BIS BITTBLC(RO),R4 ;NO, SET THE OVERRUN BIT ERROR FLAG FOR LINE. 

6855 030246 005260 003744 12$: INC RXCNTBCRO) ;COUNT THIS CHARACTER 

tes 4 030252 000723 BR 8$ ;LOOP UNTIL ALL CHARS ARE READ FROM FIFO. 

6 i+ 

6858 ; Test for abort conditions. Only none abort conditions are: 

6859 ; 1) 2 chars RXed on a line and no overrun error bit failure detected. 

rt ; 2) 2 to 4 chars RXed on a line and an overrun bit failure detected. 

6862 030254 005001 14$: CLR R1 ; INITIALIZE LINE LOOP, CLEAR LINE OFFSET. 

6863 030256 012767 015067 153622 16$: MOV #6711. ,ERRNBR ;SET UP ERROR NUMBER EACH TIME AROUND LOOP. 

6864 030264 036167 002370 151742 BIT BITTBLCRI). ACTLNS 

6865 030272 001415 BEQ 18$ Lee ACTIVE? NO, NEXT LINE. 

6866 030274 026127 003744 000002 CMP RXCNTBC(R1), #2 Yes. 

6867 030302 002447 BLT 50$ ;FEWER THAN 2 CHARS RXED? YES, ABORT. 

6868 030304 036104 002370 BIT BITTBLC(R1),R4 ;NO. 

6869 030310 001006 BNE 18$ ; OVERRUN BIT ERROR FLAG SET? YES, NEXT LINE. 

6870 030312 005267 153570 INC ERRNBR ;SET LINE NUMBER TO 6712. 

6871 030316 026127 003744 000002 CMP RXCNTBC(R1), #2 

6872 030324 001036 BNE 50$ ;NOT 2 CHARS RXED? YES, ABORT. NO, NEXT LINE. ' 

6873 030326 062701 000002 18$: ADD #2,R1 ;SET LINE OFFSET TO THE NEXT LINE. 

6874 030332 020127 000020 CMP R1, #NUMLNS#*2 | 

dy 030336 002747 BLT 16$ ;ALL LINES DONE? NO, LOOP. YES, CONTINUE. | 

yt ; Check for overrun error bit failures, print error message if found. | 
| im 
| ' 
\° 


CC — ——  — —— 
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HARDWARE TEST 
6879 030340 
688 


6887 030372 
6889 030376 


6893 030410 


030432 


012767 
005001 


012701 
104460 
010201 
046104 
001407 
062701 
000755 


104460 
000402 


004767 
005067 


104401 


- ORERR - 
015071 153540 


002370 


012040 153520 
007371 


002370 
000002 


165354 
151632 


20$: 


22s: 


24s: 


50$: 
60$: 


MOV ceases 
R1,R2 

BIT BITTBL(R1),R4 
22$ 

MOV R1,R3 
R3 

MOV #ER7801,ERRBLK 

6702,R 


SEQ 0166 


;SET UP ERROR NUMBER. 

fm ee ay LOOP. CLEAR LINE OFFSET. 
;COPY THE LINE OFFSET. 

; OVERRUN BIT FAILURE FLAGS ARE IN R4. 
;ERROR FLAG CLEAR? YES, NEXT LINE. 


;CALCULATE LINE NUMBER FROM LINE OFFSET 
tte THE CORRECT ERROR REPORTING ROUTINE. 
PASS THE MESSAGE TO BE REPORTED. 


MOV #EM670 
anata ERROR NOT REPORTED CORRECTLY WHEN FORCED, ON LINE nn...” 


R2,R1 

BIC BITTBL(R1),R4 
60$ 

ADD #2,R1 
20$ 


hn “BMP CODE FOUND IN FIFO, TEST INVAILDATED.” 


BR 60$ 

JSR PC, TSABRT 
CLR CTRLCF 

ENDTST 


; >>>>> ERROR #67 i a 
CSERROR 
;RESTORE THE LINE OFFSET THAT WAS” DESTROYED. 
iCLEA R THE LINE ERROR FLAG WE JUST HANDLED. 
ALL FAILURE BITS HANDLED? YES, EXIT TEST. 
INO, INCREMENT THE LINE OFFSET. 
;LOOP TO HANDLE THE NEXT LINE. 


; >>>>> ERROR <<<<<, 
TRAP CS$ERROR 
;EXIT THIS TEST. 


;ABORT THE TEST. ERROR # INDICATES FAULT TYPE. 
sINDICATE THAT WE ARE NOT WITHIN A TEST. 


L10041: 
TRAP CSETST 


i 
i 
| 


HARDWARE TEST 


6917 030434 
030434 


6921 030434 


6929 030500 


6935 030506 
6936 030512 
6937 030514 


0 
os 030520 


6948 030524 
6949 030526 
6950 030530 
6951 030532 
on 030540 


be} 
6956 030542 
6957 030544 
6958 030550 
6959 030554 
6960 030560 


ao 
woo 
oo 
NO 


032767 
001002 
000167 
000020 
012767 
012767 
012767 
012767 
012767 


004767 
103402 
000167 


004767 


005003 
010300 
006300 
036067 
001465 


005000 
012705 
004767 
012704 
004767 


- DTRMCS - 


000002 
000456 
000020 
177777 
000001 


017171 
007446 


162774 


000406 


162326 


002370 


000377 
166136 
000074 
163134 


151574 


151610 
151600 
153412 
153406 
153402 


151474 
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-SBTTL HARDWARE TEST - DTRMCS - 
ORE REE EERE EERE REAR ERE EERE EERE ARERR REE EERE EEE EERE EERE EEE EE 


- Data Terminal Ready Modem Control Signal Test - 


* 


;* 
; This test verifies that the DTR modem control “ is working 

;* correctly. It will only be performed if either 25 pin or staggered 

;* loopback is specified. This test_uses the looped back signals RI 

;* and DSR to test the DTR signal. This test is performed on all 

i* active lines. 

;* 

Perri iit itiiiititiiitiiiiiitiiiiiititiiiitiiiiiiitititiitiiitiiiiiiiiititttti tt) 


BGNTST 
T16:: 


Only perform this test if the DUT is in external or staggared loopback mode. 
BIT  rlaanaiaa ;CHECK TYPE OF LOOPBACK MODE SELECTED. 


BNE 
JMP 60$ sEXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM «+ 1 ;INCREMENT THE ASSEMBLY TIME TEST nhl 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (78) 
MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 


MOV #7801.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM7801,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


3+ 
; Reset the DUT to a known state, remove status codes from the fifo. 
; Clear TX and RX interrupt enable bits 

; This subroutine reports error >>>>> 7801 <<<<<, 


og > aia ;RESET THE DUT. 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
; Set up the TX/RX associated line number table. 
as: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


; * Set up e@ loop which handles one line per iteration. 

; This loop clears all the DTRs and then sets them individually and waits for 
; @ response on the associated RI and DSR signals. 

; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO 
ASL RO 
BIT BITTBLC(RO),ACTLNS 
BEQ 12$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers DTR bits. 
CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV #MAPLNS ,R5S ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC ,WTWLNC ;CLEAR ALL THE DUT DTR BITS. 
MOV #60. ,R4 
JSR PC,DELAY ;DELAY FOR 60 MS TO ALLOW SIGNALS TO SETTLE. 





SEQ 0167 


ee | 


a 


| CVDHBDO DHV11-M 


| HARDWARE TEST 


6994 030722 


7001 030724 


7005 030740 


7009 030742 


7013 030762 
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- DTRMCS - 


001431 


010377 


001011 


012767 
012767 
012701 


104460 
005203 
020327 
002701 


005003 
010300 
006300 
036067 
001466 


012700 
012705 
004767 
012704 
004767 


151426 
001000 
150074 
100000 


170074 


165722 


151366 
057777 


017172 
012040 
007501 


000010 


002370 


162732 


151430 


153206 
153204 


151274 


SEQ 0168 


; Check that at least one of associated DSR or RI is clear and record states. 
MOVB gyn al R4 ;GET THE ASSOCIATED LINE NUMBER. 


MOV R4,aCSRA ;SELECT ASSOCIATED LINE IND.ADR.REG FIELD. 
MOV astA TA,RS ;GET THE STATE OF THE ASSOCIATED DSR, RI BITS. 
MOV #81T15!B1T13, RO 
BIC R5,RO ;CHECK FOR BOTH DSR AND RI SET. 
BEQ 10$ G0 REPORT DTR IS BAD IF BOTH ARE SET. 
3¢ 
; Set the DTR for the selected line and wait for either DSR or RI to set. 
MOV R3,aCSRA ;SELECT THE SELECTED cr IND.ADR.REG FIELD. 
BIS #BIT9,@LNCTRA ;SET THE SELECTED LINE DTR 
MOV #150074 ,R1 ;SPECIFY TO WAIT UP TO 60 MS FOR RI TO SET. 
BIT #BIT15,R5 ; CHECK PREVIOUS STATE OF DSR BIT. 
BNE 8$ ;G0 USE RI IF OSR BIT WAS NOT CLEAR. 
MOV #170074,R1 ; SPECIFY TO WAIT UP TO 60 MS FOR DSR SET. 
8$: MOV STATA,R2 ;SPECIFY TO LOOK IN STAT REG FOR BIT TO SET. 
MOV R4,aCSRA he aa ASSOCIATED LINE IND.ADR.REG cee. 
JSR PC,WAIBIS WAIT UP TO 60 MS FOR SIGNAL TO GO SET 
BCS 12$ ; SELECT NEXT LINE AND LOOP IF SIGNAL IS SET. 
MOV @STATA,RO ;GET THE STATUS REGISTER CONTENTS. 
BIC #57777,RO sREMOVE ALL BUT THE DSR AND RI BITS. 
BIC RS,RO ;TEST FOR SIGNAL ONCE CLEAR, BUT NOW SET. 


BNE 12$ ;GO LOOP IF SIGNAL HAS GONE FROM CLR TO SET. 
10$: menee® 7 OS ERROR SIGNAL DEFECTIVE ON LINE nn. 


#7802. ,ERR SELECT ERROR NUMBER. 
MOV #ER7801,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 


. #EM7802,R1 ;SELECT THE ERROR MESSAGE. 
TRAP CSERROR 
12$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
CMP R3, #@NUMLNS ;TEST FOR ALL LINES DONE. 
BLT 6$ ;LOOP IF NOT ALL LINES DONE. 


3?¢ 

; Set up ea loop which handles one line per iteration. 

; me loop sets all the DTRs and then clears them individually and waits for 
; @ response on the associated RI and DSR signals 

This loop will clear the TX.IE and RX.IE bits. if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
14$: MOV R3,RO 
ASL RO 
BIT Be) RENE, ACTLNS 
BEQ 20$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Set all the DUT LNCTRL registers DTR bits. 
MOV #BIT9,RO ;SPECIFY THAT DTR BITS ARE TO BE SET. 
MOV #MAPLNS ,R5 ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC ,WTWLNC ;SET ALL THE DUT OTR BITS. 
MOV #60. ,R4 
JSR PC ,DELAY ;DELAY FOR 60 MS TO ALLOW SIGNALS TO SETTLE. 


3*¢ 
; Check that at least one of associated DSR or RI is set and record states. 
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SEQ 0169 


031132 104401 TRAP CSETST 


HARDWARE TEST - DTRMCS - 
7017 030766 116304 004044 MOVB ogy as hae R4 ;GET THE ASSOCIATED LINE NUMBER. 
7018 030772 010477 151244 MOV R4,aCSRA ;SELECT ASSOCIATED LINE IND.ADR.REG FIELD. 
7019 030776 017705 151246 MOV aSTATA, RS GET THE STATE OF THE ASSOCIATED DSR, RI BITS. 
7020 031002 010500 MOV R5,RO 
7021 031004 042700 057777 BIC #57777, RO ;CHECK FOR BOTH DSR AND RI CLEAR 
ross 031010 001431 BEQ 18$ ;G0 REPORT DTR IS BAD IF BOTH ARE CLEAR. 
ress ; Clear the DTR for the selected line and wait for either DSR or RI to clear. 
7026 031012 010377 151224 MOV R3,@CSRA ;SELECT THE SELECTED LINE IND.ADR.REG FIELD. 
7027 031016 042777 001000 151226 BIC #BIT9,@LNCTRA :CL EAR THE SELECTED LINE OTR. 
7028 031024 012701 150074 MOV #150074 ,R1 ; SPECIFY TO WAIT UP TO 60 MS “FOR RI TO CLEAR. 
7029 031030 032705 100000 BIT #BIT15,R5 ;CHECK PREVIOUS STATE OF DSR BIT. 
7030 031034 001402 BEQ 16$ ;GO USE RI IF DSR BIT WAS NOT SET. 
7031 031036 012701 170074 MOV #170074,R1 i SPECIFY TO WAIT UP TO 60 MS FOR DSR CLEAR. 
7032 031042 016702 151202 16$: MOV STATA, R2 ;SPECIFY TO LOOK IN STAT REG FOR BIT TO CLR. 
7033 031046 010477 151170 MOV R4, acsRA ;SELECT ASSOCIATED LINE IND.AOR.REG FIE o. 
7034 031052 004767 165444 JSR PC ,WAIBIC ;WAIT UP TO 60 MS FOR SIGNAL TO GO CLEAR 
7035 031056 103417 BCS 20 0$ ;SELECT NEXT LINE AND LOOP IF SIGNAL IS CLEAR. 
7036 031060 017700 151164 MOV @STATA,RO ;GET THE STATUS REGISTER CONTENTS. 
7037 031064 042705 057777 BIC 957777,R5 
7038 031070 040005 BIC RO,RS ;TEST FOR SIGNAL ONCE SET, BUT NOW CLEAR. 
7039 031072 001011 BNE 20$ ;GO LOOP IF SIGNAL HAS GONE F FROM SET TO CLR. 
7040 031074 18$: ;Report oe MODEM CONTROL SIGNAL DEFECTIVE ON LINE n 
7041 031074 012767 017173 153004 MOV #7803. ,ERRNBR ;SE! ECT THE ERROR ER. 
7042 031102 012767 012040 153002 MOV #ER7801, ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 
7043 031110 012701 007501 MOV #EM7802,R1 ;SELECT THE ERROR MESSAGE. 
7044 031114 ERROR 

031114 104460 TRAP CSERROR 
7045 031116 005203 20$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
7046 031120 020327 000010 CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
of 031124 002700 BLT 14$ ;LOOP IF NOT ALL LINES DONE. 
Ans 031126 005067 151132 60$: CLR CTRLCF ;INDICATE THAT WE ARE NOT WITHIN A TEST. 
7051 031132 ENDTST 
031132 L10042: 

| 

| 

| 

| 


a+ ee ee ee _-_oeoeoTY OO > —_———_ ———— CC rr OC OOO OS Oe " 


_— 
i 
j 


7108 031260 004767 162434 JSR PC,DELAY ;DELAY FOR 60 MS TO ALLOW SIGNALS TO SETTLE. 
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SEQ 0170 
HARDWARE TEST - RTSMCS - 
7053 .SBTTL HARDWARE TEST - RTSMCS - 
7054 OP Titiitiiiiiitiitiitiiiiitiiiitititiiiitiiiitiiitiiiiitiriiiiiiiitiittttt tt? 
ro58 mh - Request to Send Modem Control Signal Test - 
3;* 
7057 3* This test verifies that the RTS modem control sigel is working 
7058 i* correctly. It will only be performed if either 25 pin or staggered 
7059 ;* loopback is specified. This test_uses the looped back signals CTS 
7060 a and DCD to test the RTS signal. This test is performed on all 
toes * active lines. 
7% 
seer Prt ititiiiititiiitttitiiiititttitiiititiititiititiiiitiiitiiiiiiiiitiiiiiitis, 
7065 031134 BGNTST 
031134 Ti7?:: 
7066 3° 
Lo 34 ; Only perform this test if the DUT is in. external or staggered loopback mode. 
7069 031134 032767 000002 151074 — BIT #BIT1,LOPBCK ;CHECK TYPE OF LOOPBACK MODE SELECTED. 
7070 031142 001002 BNE 1$ 
7071 031144 000167 000456 JMP 60$ s;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
7072 031150 000021 1$: TNUM == TNUM « 1 s; INCREMENT THE eat TIME TEST rit 
7073 031150 012767 000021 151110 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER (79) 
7074 031156 012767 177777 151100 MOV #-1,CTRLCF ;INDICATE THAT WE ARE IN A TEST. 
7075 031164 012767 000001 152712 MOV #1, ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 
7076 031172 012767 017335 152706 MOV #7901.,ERRNBR  ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
ha da 031200 012767 007532 152702 MOV #EM7901,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
7079 ; Reset the DUT to a known state, remove status codes from the fifo. 
7080 ; Clear TX and RX interrupt enable bits. 
La ; This subroutine reports error >>>>> 7901 <<<<<, 
7083 031206 004767 162274 j JSR PC,CLNRST ;RESET THE DUT. 
7084 031212 103402 BCS 3$ 
Lae 24 031214 000167 000406 JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
i¢ 
ied ; Set up the TX/RX associated line number table. 
08 
core 031220 004767 161626 3s: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 
7091 4 Set up a loop which handles one line per iteration. 
7092 , ; This » a clears all the RTSs and then sets them individually and waits for 
7093 ; _ @ response on the associated CTS and DCD signals. 
Ls on ; This loop will clear the TX.IE and RX.IE bits if they are set. 
7096 031224 005003 ; CLR R3 ;CLEAR THE LINE COUNTER. 
7097 031226 010300 2s: MOV R3,RO 
7098 031230 00630C ASL RO 
7099 031232 036067 002370 150774 BIT BITIBLCRO),ACTLNS 
LL 4 031240 001465 BEQ 8$ ;DON'T TEST IF NOT ACTIVE LINE. 
7305 ; Clear all the DUT LNCTRL registers RTS bits. 
7104 031242 005000 4 CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. | 
7105 031244 012705 000377 MOV #MAPLNS ,R5 ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
| 7106 031250 004767 165436 JSR PC ,WTWLNC ;CLEAR ALL THE DUT RTS BITS. 
7107 031254 012704 000074 MOV #60. ,R4 
| 





| CVDHBDO DHV11-M 
HARDWARE TEST 


| 
| 


031416 
031422 


031424 
031426 
031430 
031432 
031440 


031442 
031446 
031452 
031456 
031462 


—— 
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- RTSMCS - 


052777 


012767 
012767 
012701 


004044 
150746 
150750 
014000 


150726 


165222 


150666 
163777 


017336 


002370 


162232 


150730 


152506 
152504 


150574 


; Check that at least one of associated DCD or CTS is clear and record states. 
MOVB ayy oh R4 ;GET THE ASSOCIATED LINE NUMBER 


MOV R4, + we ;SELECT ASSOCIATED LINE IND.ADR.REG FIEL D. 
MOV aSTAT RS ;GET THE STATE OF THE ASSOCIATED DCD, CTS BITS. 
MOV eel i2ierTi1, RO 
BIC RS,RO ;CHECK FOR BOTH DCD AND CTS SET. 
BEQ 6$ ;G0 REPORT RTS IS BAD IF BOTH ARE SET. 
; Set the RTS for the selected line and wait for either DCD or CTS to set. 
MOV R3,aCSRA ;SELECT THE SELECTED LINE IND.ADR.REG FIELD. 
BIS #BIT12,3LNCTRA SET THE SELECTED LINE RTS. 
MOV #130074 ,R1 ;SPECIFY TO WAIT UP TO 60 MS FOR CTS TO SET. 
BIT #BIT12,R5 ;CHECK PREVIOUS STATE OF DCD BIT. 
BNE 4$ ;GO0 USE CTS IF DCD BIT WAS NOT CLEAR. 
MOV #140074 ,R1 ; SPECIFY TO WAIT UP TO 60 MS FOR DCD SET. 
4$: MOV STATA,R2 ;SPECIFY TO LOOK IN STAT REG FOR BIT TO SET 
MOV R4,aCSRA ;SELECT ASSOCIATED LINE IND.ADR.REG FIELD 
JSR PC,WAIBIS ;WAIT UP TO 60 MS FOR SIGNAL TO GO SET. 
BCS 8$ ;SELECT NEXT LINE AND LOOP IF SIGNAL IS SET. 


MOV @STATA,RO ;GET THE STATUS REGISTER CONTENTS. 
BIC #163777,RO0 sREMOVE ALL_BUT THE DCD AND CTS BITS. 
BIC RS,RO sTEST FOR SIGNAL ONCE CLEAR, BUT NOW SET. 
BNE 8$ ;G0 LOOP IF SIGNAL HAS yon Kan CLR TO SET. 
6$: sReport if MODEM CONTROL SIGNAL DEFECTIVE ON LINE n 
MOV #7902.,ERRNBR ;SELECT THE ERROR NUMBER. 
MOV #ER7801,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 


MOV #EM7902,R1 ;SELECT THE ERROR MESSAGE. 
ERROR : >>>>> ERROR <<<<<, 
TRAP CSERROR 
8$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
BLT es ;LOOP IF NOT ALL LINES DONE. 
; Set up a loop which handles one line per iteration. 


; This _ o* sets all the RTSs and then clears them individually and waits for 
+ | @ response on the associated CTS and DCD signals. 
; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 sCLEAR THE LINE COUNTER. 
10$: MOV R3,RO 
ASL RO 
BIT BITTBLC(RO),ACTLNS 
BEQ 16$ sDON'T TEST IF NOT ACTIVE LINE. 


3* 
; Set all the DUT LNCTRL registers RTS bits. 


MOV #BIT12,RO sSPECIFY THAT RTS BITS ARE TO BE SET 
MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC ,WTWLNC iSET ALL THE DUT RTS BITS. 


MO #60. ,R4 
JSR PC DELAY ;DELAY FOR 60 MS TO ALLOW SIGNALS TO SE‘TLE. 


; Check that at least one of associated DCD or CTS is set and record states. 


SEQ 0171 


oe ---- 





a 
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| HARDWARE TEST 
| 7165 031466 


7170 031510 


7174 031512 


7184 03156 
7185 031 
7186 031570 


7195 031624 
7197 031626 
7199 031632 


031632 
031632 


116304 
010477 
017705 
010500 
042700 
001431 


010377 


040005 
001011 
012767 


012767 
012701 


104401 


004044 
150544 
150546 


163777 


150524 
010000 
130074 
010000 


140074 
164744 


150464 
163777 


017337 
012040 
007565 


000010 


150432 


150526 


152304 
152302 


Clear the RTS 


12$: 


14$: 


16$: 


60$: 


ae SceAAS »R4 = =;GET_THE ASSOCIATED LINE NUMBER. 


;SELECT ASSOCIATED LINE IND.ADR.REG FIELD. 
asTATA, RS ;GET THE STATE OF THE ASSOCIATED OCD, CTS BITS. 
#163777,RO ;CHECK FOR BOTH DCD AND CTS CLE 
14$ ;GO REPORT RTS IS BAD IF BOTH ARE CLEAR. 
for the selected line and wait for either DCD or CTS to clear. 
R3,aCSRA ;SELECT THE SELECTED LINE ” AOR.REG FIELD. 
eB iTi2, @LNCTRA ;CLEAR THE SELECTED LINE RTS. 

#130074 ,R1 ; SPECIFY TO WAIT UP TO 60 MS FOR CTS TO CLEAR. 
#BIT12,R5 ;CHECK PREVIOUS STATE OF DCD BIT 

12$ G0 USE CTS IF DCD BIT WAS NOT SET. 

#140074 ,R1 ;SPECIFY TO WAIT UP TO 60 MS FOR DCD CLEAR. 
STATA,R2 ; SPECIFY TO LOOK IN STAT REG FOR BIT TO CLR. 
R4,aCSRA ;SELECT ASSOCIATED LINE IND.ADR.REG ti 

PC ,WAIBIC ;WAIT UP TO 60 MS FOR SIGNAL TO GO CLEAR 

16$ ;SELECT NEXT LINE AND LOOP IF SIGNAL IS CLEAR. 
@STATA,RO ;GET THE STATUS REGISTER CONTENTS. 

#163777.R5 

RO,R5S ;TEST FOR SIGNAL ONCE SET, BUT NOW CLEAR. 


LOOP IF SIGNAL HAS GONE omnes SET TO CLR. 


16$ ;G0 
Mapert RTS MODEM CONTROL SIGNAL DEFECTIVE ON LINE n 


#7903.,ERRNBR ;SELECT THE ERROR NUMBER. 
#ER7801, ae ; SELECT THE ERROR PRINT ROUTINE. 
#EM7902 ,R1 ;SELECT THE ERROR MESSAGE. 

; >>>>> ERROR <<<<<, 


TRAP CSERROR 


R3 SELECT THE NEXT LINE NUMBER. 

R3, #NUMLNS TEST FOR ALL LINES DONE. 

10$ ;LOOP IF NOT ALL LINES DONE. 

CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
L10043; 


TRAP CSETST 


SEQ 0172 





E14 
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031634 
031634 


031634 


031706 
031712 
031714 


031720 


031724 


031726 


031730 


031732 
031740 


031742 


031760 


032767 


012767 


004767 
103402 
000167 


004767 


005003 
010300 
006300 
036067 
001450 


005000 
012705 
004767 
012704 
004767 


- DSRMS - 


161574 
000322 


161126 


002370 


161734 


150374 


152202 


150274 


.SBTTL HARDWARE TEST - DSRMS - 
FORRES EERE RRA E EERE EERE EEEEEREEREE EERE EEEES 
;* - Data Set Ready Modem Signal Test - 

;* 

7% This test verifies that the DSR modem status signal is work ing 

:* correctly, It will only be performed if either 25 pin or staggered 

i* loopback is specified. This test uses the looped back DTR signals 

;* 7? test the DSR signal. This test is performed on all the active 

;* ines. 

7* 


EERE EEE EERE REE EER ERE REE EERE REE REAR ERE EEE REE E EEE REE EEEEEEEEEE EERE RE EEE 


BGNTST 
7T18:: 


3¢ 
; Only perform this test if the DUT is in external or staggared loopback mode. 


mY +) lalate sCHECK TYPE OF LOOPBACK MODE SELECTED. 

JMP 60$ sEXIT THIS TEST IF IN INTERNAL LOOPBACK. 

2$: TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (80) 

MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP sSET ERROR TYPE IN ERROR TABLE. 

MOV #8001.,ERRNBR  ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM8001,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


; Reset the DUT to a known state, remove status codes from the FIFO. 
; Clear TX and RX interrupt enable bits. 
; This subroutine reports error >>>>> 8001 <<<<<, 

JSR + eat sRESET THE DUT. 


BCS 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
: Set up the TX/RX associated line number table. 
a$: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


; Set up ea loop which handles one line per iteration. 

; This loop clears all the DTRs and then sets them individually and waits for 
; _ @ response on the associated DSR signal. 

; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO 
ASL R 
BIT BITTBLCRO),ACTLNS 
BEQ 10$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers DTR bits. 
; CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 


;CLEAR ALL THE DUT DTR BITS. 
;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 


JSR PC ,WTWLNC 
MOV #40. ,R4 
JSR PC ,DELAY 


SEQ 0173 


| CVDHBDO DHV11-M 


HARDWARE TEST 


031776 


032000 
032004 
032010 


032016 


3. 
032064 
032070 


032072 


032130 


032134 
032140 


ee 
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010377 
032777 
00102° 


116304 
010477 
052777 


010377 
012701 
016702 
004767 
103411 


012767 
012767 
012701 


104460 
005203 
020327 
002716 


010377 
032777 


150252 
100000 


004044 
150232 
001000 


150220 
170050 
150216 
164540 


017502 
012040 
007654 


000010 


002370 


161564 


150102 
100000 


150252 


150234 


152040 
152036 


150126 


150102 





SEQ 0174 


3* 
; Check that the specified DSR is clear. 


MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
BIT #BIT15,@STATA 
BNE 8$ ;GO REPORT DSR IS BAD IF BIT IS NOT CLEAR. 


: set the DTR for the associated line. 
; NOTE: If the associated line is not selected, DTR will not have been tested 
: in the DTR test (Only an issue in staggered loopback ). 

MOVB a aeeaa” R4 ;GET THE ASSOCIATED LINE NUMBER 

MOV R4,aCSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 

BIS #B1T9, @LNCTRA ;SET THE ASSOCIATED LINE DTR 


3+ 
; Check that the selected line DSR is active. 


MOV R3,@CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 

MOV #170050,R1 eae TIMEOUT OF 40 MILLI-SEC, AND BIT ig TEST. 
MOV STATA,R2 PASS THE ADDRESS OF THE REGISTER TO TEST 

JSR PC,WAIBIS ;WAIT FOR DSR TO BECOME SET OR TIMEOUT. 

BCS 10$ ;SKIP ERROR REPORT IF SELECTED DSR IS SET. 


8$: Report DSR MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 
MOV #8002.,ERRNBR ;SELECT THE ERROR NUMBER 
MOV #ER7801,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 


ome #EM8002 ,R1 ;SELECT THE ERROR MESSAGE. 
TRAP CSERROR 
10$: INC R3 ;SELECT THE NEXT LINE NUMBER. 


CMP R3, #NUMLNS s;TEST FOR ALL LINES DONE. 
BLT 6$ ;LOOP IF NOT ALL LINES DONE. 


3¢ 

; Set up a loop which handles one line per iteration. 

; This "Tete sets all the DTRs and then clears them individually and waits for 
: a response on the selected DSR signal. 

; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
12$: MOV R3,RO 
ASL RO 
BIT BITTBL(RO),ACTLNS 
BEQ 16$ ;DON'T TEST IF NOT ACTIVE LINE. 


; Set all the DUT LNCTRL registers DTR bits. 


MOV #BIT9,RO ;SPECIFY THAT DTR BITS ARE TO BE SET. 

MOV #MAPLNS ,RS ;SPECIFY THAT ALL Nag b ARE TO BE CHANGED. 
JSR PC,WTWLNC ;SET ALL THE DUT DTR BITS. 

MOV #40. ,R4 

JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 


; Check that the specified DSR is set. 
;SET IND.ADR.REG FIELD TO SELECTED LINE. 


MOV R3,@CSRA 
BIT #BIT15,@STATA 


a 


i ee 
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| HARDWARE TEST 


Le 


032146 


8 
032150 


032154 
032160 


032166 
032172 
032176 
032202 
032206 


032210 


032240 
032242 
032246 


032246 
032246 


em a ee eee ee + <<. 


614 
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001420 


103411 


012767 
012767 
012701 


104460 
005203 
020327 
002715 


005067 


104401 


004044 
150062 
001000 


150050 


164314 


017503 
012040 
007654 


000010 


150016 


150064 


151670 
151666 


SEQ 0175 


BEQ 14$ ;GO REPORT DSR IS BAD IF BIT IS NOT SET. 


; Clear the DTR for the associated line. 
; NOTE: If the associated line is not selected, DTR will not have been tested 


in the DTR test (Only an issue in staggered loopback ). 


MOVB TXRLNBCR3),R4 ;GET THE ASSOCIATED LINE NUMBER 
MOV R4,9CSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 
BIC #BIT9,Q@LNCTRA  ;CLEAR THE ASSOCIATED LINE DTR 


3+ 
; Check that the selected line “SR is clear. 


14$: 


60$: 


MOV R3,@CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 


MOV #170050,R1 s;PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 
MOV STATA,R2 ;PASS THE ADDRESS OF THE REGISTER TO aa 
JSR PC,WAIBIC ;WAIT FOR DSR TO BECOME CLEAR OR TIMEOU 
BCS 16$ ;SKIP ERROR REPORT IF SELECTED DSR IS CLEAR. 
sReport DSR MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 
MOV #8003.,ERRNBR ;SELECT THE ERROR NUMBER. 
MOV #ER7801,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 
atte #EM8002,R1 ;SELECT THE ERROR MESSAGE. 
TRAP CSERROR 
INC R3 ;SELECT THE NEXT LINE NUMBER. 
CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
BLT l2$ ;LOOP IF NOT ALL LINES DONE. 
CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 
L10044; 


TRAP CSETST 


ne ee ewe 


H14 
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1 
| HARDWARE TEST 


7356 032250 
032250 


7360 032250 


7368 032314 


7374 032322 
7375 032326 
7376 032330 


7380 032334 


7387 032340 
7388 032342 
7389 032344 
7390 032346 
7391 032354 


7395 032356 
7396 032360 
7397 032364 
7398 032370 
| 7399 032374 


! 


| 
7349 
7350 


032767 


012767 


004767 
103402 
000167 


004767 


005003 
010300 
006300 
036067 
001450 


005000 
012705 
004767 
012704 
004767 


000002 
000372 
000023 
177777 
000001 


017645 
007720 


161160 


000322 


160512 


002370 


000377 
164322 
000050 
161320 


147760 


147774 
147764 
151576 
151572 
151566 


147660 





SEQ 0176 


.SBTTL HARDWARE TEST - RINGI - 
Pert iiirititiiitiiti titi irri i titi ititti ti iri tii r itr i tri rir i ir iti titi tt ttt t 
- Ring Indicator Modem Signal Test - 


* 


;* 

;* This test verifies that the RI modem status signal is working 

i* correctly. It will only be performed if either 25 pin or staggered 
i* loopback is specified. This test uses the looped back DIR signals 
;* to test the RI signal. This test is performed on all the active 

;* lines. 

;* 


— REE REE REE ER EKER EKER ERE EERE ERE AER ERERERERERERERERERES EE EEEE 


BGNTST 
T19:: 


: Only perform this test if the DUT is in external or staggared loopback mode. 


ay + ieee ;CHECK TYPE OF LOOPBACK MODE SELECTED. 
JMP 60$ ;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM «+ 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (81) 
MOV #-1,CTRLCF s INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 
MOV #8101. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM8101,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
3¢ 
; Reset the DUT to a known state, remove status codes from the FIFO. 
; Clear TX and RX interrupt enable bits. 
; This subroutine reports error >>>>> 8101 <<<<<, 
re oo ;RESET THE DUT. 
JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
; Set up the TX/RX associated line number table. 
4$: JSR PC,ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 
; Set >: a loop which handles one line per iteration. 
; This loop clears all the DTRs and then sets them individually and waits for 
; @ response on the associated RI olgras. 
; This loop will clear the TX.IE and RX.IE bits if they are set. 
; CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO 
ASL RO 
BIT BITTBLC(RO),ACTLNS 
BEQ 10$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers DTR bits. 
CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV #MAPLNS ,R5S ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC ,WTWLNC ;CLEAR ALL THE DUT DTR BITS. 
MOV #40. ,R4 
JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 


ee ae ee ee 
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| HARDWARE TEST - RINGI - 
7400 ;+ 
sens ; Check that the specified RI is clear. ' 
1403 032400 010377 147636 : MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
7404 032404 032777 020000 147636 BIT #BIT13,9STATA 
rene 032412 001020 BNE 8$ ;GO REPORT RI IS BAD IF BIT IS NOT CLEAR. 
7407 Set the DTR for the associated line. 
7408 ; NOTE: If the associated line is not selected, DTR will not have been tested 
sacs ; in the DTR test (Only an issue in staggered loopback ). 
7411 032414 116304 004044 , MOVB TYRLNBCR3), R4 ;GET THE aa ane Fe LINE NUMBER. 
7412 032420 010477 147616 MOV Ré, ACSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 
ety 032424 052777 001000 147620 BIS #BIT9,@LNCTRA ;SET THE ASSOCIATED LINE DTR 
ate ; Check that the selected line RI is active. 
7417 032432 010377 147604 : MOV R3,@CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
7418 032436 012701 150050 MOV #150050,R1 ;PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 
7419 032442 016702 147602 MOV STATA,R2 ;PASS THE ADDRESS OF THE REGISTER al TEST. 
7420 032446 004767 164124 JSR PC,WAIBIS ;WAIT FOR RI TG BECOME SET OR TIMEOUT 
rash 032452 103411 BCS 10$ ;SKIP ERROR REPORT IF SELECTED RI IS SET. 
7423 
7424 032454 8$: ;Report RI MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 
7425 032454 012767 017646 151424 OV #8102. ,ERRNBR ;SELECT THE ERROR NUMBER. 
7426 032462 012767 012040 151422 MOV #ER7801, ERRBLK ; SELECT THE ERROR PRINT ROUTINE. 
7427 032470 012701 007755 MOV #EM8102,R1 ;SELECT THE ERROR MESSAGE. 
7428 032474 ERROR 
032474 104460 TRAP CSERROR 
7429 032476 005203 10$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
7430 032500 020327 000010 CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
Lg 032504 002716 BLT 6$ ;LOOP IF NOT ALL LINES DONE. 
7433 ¥ ot a loop which handles one line per iteration. 
7434 ; This » a sets all the DTRs and then clears them individually and waits for 
7435 ; a response on the selected RI signal. 
736 ; This loop will clear the TX.IE and RX.IE bits if they are set. 
7438 032506 005003 4a CLR R3 ;CLEAR THE LINE COUNTER. 
7439 032510 010300 12$: MOV R3,RO 
7440 032512 006300 ASL 
7441 032514 036067 002370 147512 BIT BITTBLCRO), ACTLNS 
ee | 032522 001451 BEQ 16$ ;DON'T TEST IF NOT ACTIVE LINE. 
7444 ; Set all the DUT LNCTRL registers DTR bits. 
7446 032524 012700 001000 : MOV #BIT9,RO ;SPECIFY THAT DTR BITS ARE TO BE SET 
7447 032530 012705 000377 MOV #MAPLNS ,R5 ; SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
7448 032534 004767 164152 JSR PC ,WTWLNC ;SET ALL THE DUT DTR BITS. 
7449 032540 012704 000050 MOV #40. ,R4 
reat 032544 004767 161150 JSR PC ,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 
Lt ; Check that the specified RI is set. 
7454 032550 010377 147466 : MOV R3,aCSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 


; 7455 032554 032777 020000 147466 BIT #B1T13,aSTATA 





SEQ 0177 


- ee ee we 








J14 
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_ HARDWARE TEST 


| 7456 032562 
7457 


7462 032564 
7463 032570 
7464 032574 


7468 032602 
7469 032606 
7470 032612 
7471 032616 
7472 032622 


7474 032624 


7481 032654 
7483 032656 
7485 032662 


032662 
032662 


001420 


116304 
010477 
042777 


010377 


004767 
103411 


012767 
012767 
012701 


002715 
005067 


104401 


004044 
147446 
001000 


147434 
150050 
147432 
163700 


017647 
012040 
007755 


000010 


147402 


147450 


151254 
151252 


BEQ 14$ ;GO REPORT RI IS BAD IF BIT IS NOT SET. 


i Clear the DTR for the associated line. 
; NOTE: If the associated line is not selected, DTR will not have been tested 


in the DTR test (Only an issue in staggered loopback ). 


MOVB TXRLNB(R3),R4  ;GET THE ASSOCIATED LINE NUMBER. 
MOV R4,9CSRA SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 
BIC #BIT9,@LNCTRA  ;CLEAR THE ASSOCIATED LINE DTR 


;¢ 
; Check that the selected line RI is clear. 


14$: 


16$: 


60$: 


;SET IND.ADR.REG FIELD TO SELECTED LINE. 
:PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 


MOV R3,@CSRA 
MOV #150050,R1 


MOV STATA,R2 PASS THE ADDRESS OF THE REGISTER TO TEST. 
JSR PC,WAIBIC ;WAIT FOR RI TO BECOME CLEAR OR TIMEOUT. 
BCS 16$ ;SKIP ERROR REPORT IF SELECTED RI IS CLEAR. 
;Report RI MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 

MOV #8103.,ERRNBR ;SELECT THE ERROR NUMBER. 

MOV #€R7801 , ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 
one #EM8102,R1 ;SELECT THE ERROR MESSAGE. 

TRAP CSERROR 

INC R3 s;SELECT THE NEXT LINE NUMBER. 

CMP R3, #NUMLNS TEST FOR ALL LINES DONE. 
BLT 12$ ;LOOP IF NOT ALL LINES DONE. 

CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 
L10045: 


TRAP CSETST 


SEQ 0178 


a re a - - —™ 
ee ee 


a ne ewe me 
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7499 032664 
032664 


7503 032664 


7511 032730 


7517 032736 
7518 032742 
7519 032744 


7523 032750 


7530 032754 
7534 032770 


7538 032772 
7539 032774 
7540 033000 


7541 033004 
7542 033010 


—— 


032767 


012767 


004767 
103402 
000167 


004767 


005003 
010300 
006300 
036067 
001450 


005000 
012705 
004767 
012704 
004767 


- CTSMS - 


000002 
000372 


000024 
177777 


000001 
020011 
010020 


160544 
000322 


160076 


002370 


147344 


147360 
147350 
151162 
151156 
151152 


147244 





mm ae ee Cee ee -_—_ —-+ = 


K14 


SEQ 0179 


.SBTTL HARDWARE TEST - CTSMS - 
5 ORR EERE RRR EERE EERE EERE E RARE AREER EE EERE EEE EEE ER EEE EE 


;* - Clear to Send Modem Signal Test - 


* 
* This test verifies that the CTS modem status signal is working 

* correctly. It will only _be performed if either 25 pin or staggered 
¥ loopback is pegety ied, This test uses the looped back RTS signals 
* it test the CIS signal. This test is performed on all the active 

* ines. 

* 


— ERE EERE REE EERE EEE ERERERERERER ERE ER ERES ESE ERE DE 


BGNTST 
T20:: 


;*¢ 
; Only perform this test if the DUT is in external or staggered loopback mode. 


on aw ;CHECK TYPE OF LOOPBACK MODE SELECTED. 


JMP 60$ ;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (82) 

MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 


MOV #8201.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM8201,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


3+ 

; Reset the DUT to a known state, remove status codes from the FIFO. 
; Clear TX and RX interrupt enable bits. 

; This subroutine reports error >>>>> 8201 <<<<<, 


rz + cae ;RESET THE DUT. 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
Set up the TX/RX associated line number table. 
4s: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 
set a loop which handles one line per iteration. 


; This loop clears all the RTS's and then sets them individually and waits for 
; _ @ response on the associated CTS signal. 
; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO : 
ASL RO 
BIT BITTBL(RO),ACTLNS 
BEQ 10$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers RTS bits. 
7 
CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC, WTWLNC ;CLEAR ALL THE DUT RTS BITS. 
MOV #40. ,R4 
JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 


ee ee . 
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| HARDWARE TEST 


7546 033014 
7547 033020 
7548 033026 


7554 033030 
7555 033034 
7556 033040 


7564 033066 


7567 033070 
7568 033070 


7574 033120 


7581 033122 

7582 033124 

7585 033136 
6 

7589 033140 


7593 033160 


7597 033164 
7598 033170 


ee ee ee 


L14 
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010377 
032777 
001020 


116304 
010477 
052777 


010377 
103411 


012767 
012767 
012701 


104460 
005203 
020327 
002716 


005003 
010300 
006300 
036067 
001451 


010377 
032777 


147222 
004000 


004044 
147202 
010000 


147170 
130050 
147166 
163510 


020012 
012040 
010056 


000010 


002370 


010000 
000377 
163536 
000050 
160534 


147052 
004000 


147222 


147204 


151010 
151006 


147076 


147052 





3+ 
; Check that the specified CTS is clear. 


a MOV R3,@CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
BIT #BIT11,@STATA 
BNE 8$ ;GO REPORT CTS IS BAD IF BIT IS NOT CLEAR. 


3? 

; Set the RTS for the associated line. 

; NOTE: If the associated line is not selected, RTS will not have been tested 
; in the RTS test (Only an issue in staggered loopback ). 


MOVB TXRLNB(R3),R4 ;GET THE ASSOCIATED LINE 


NUMBER. 
MOV R4,aCSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 
BIS #BIT12,QLNCTRA ;SET THE ASSOCIATED LINE RTS. 


Check that the selected line CTS is active. 
MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 


MOV #130050,R1 sPASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 
MOV STATA,R2 sPASS THE ADDRESS OF THE REGISTER TO pest 

JSR PC,WAIBIS ;WAIT FOR CTS TO BECOME SET OR TIMEOUT 

BCS 10$ ;SKIP ERROR REPORT IF SELECTED CTS IS SET. 


8$: weer’ CTS MODEM CONTROL SIGNAL ue AE ON LINE nn. 
#8202.,ERRNBR ;SELECT THE ERROR NUMBER. 
MOV #ER7801,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 


in #EM8202 ,R1 ;SELECT THE ERROR MESSAGE. 
TRAP CSERROR 
10$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
CMP R3, #NUMLNS TEST FOR ALL LINES DONE. 
BLT 6$ ;LOOP IF NOT ALL LINES DONE. 


;* 

; Set up a loop which handles one line per iteration. 

; This "low sets all the RTSs and then clears them individually and waits for 
; @ response on the selected CTS signal. 

; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
12$: MOV R3,RO 
ASL RO 
BIT BITTBL(RO),ACTLNS 
BEQ 16$ ;D0N'T TEST IF NOT ACTIVE LINE. 


; Set all the DUT LNCTRL registers RTS bits. 
. MOV #BIT12,R0 ;SPECIFY THAT RTS BITS ARE TO BE SET. 
MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR aT pt ae ;SET ALL THE DUT RTS BITS. 
JSR PC, DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 
; Check that the specified CTS is set. 


ge 
MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
BIT #BIT11,@STATA 


SEQ 0180 


ee | 


| CVDHBDO DHV11-M 
HARDWARE TEST 

7599 033176 
00 


7605 033200 
7606 033204 
7607 033210 


7611 033216 
7612 033222 
7613 033226 
7614 033232 
it 033236 


7617 033240 


7624 033270 
Lag 033272 
7628 033276 


033276 
033276 


a a ee 


M14 
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- CTSMS - 


001420 


116304 
010477 
042777 


010377 


012767 
012767 
012701 


104460 
005203 
020327 
002715 


005067 


104401 


004044 
147032 
010000 


147020 
130050 
147016 
163264 


020013 
012040 
010056 


000010 


146766 


147034 


150640 
150636 


3¢ 


14$: 


SEQ 0181 


BEQ 14$ ;GO REPORT CTS IS BAD IF BIT IS NOT SET. 


; Clear the RTS for the associated line. 
; NOTE: 


If the associated line is not selected, RTS will not have been tested 
in the RTS test (Only an issue in staggered loopback). 


MOVB TXRLNBCR3),R4 ;GET THE ASSOCIATED LINE NUMBER. 
MOV R4,9CSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 
BIC @BIT12,QLNCTRA ;CLEAR THE ASSOCIATED LINE RTS. 


Check that the selected line CTS is clear. 


MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 

MOV #130050,R1 ;PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 
MOV STATA,R2 sPASS THE ADDRESS OF THE REGISTER TO TEST. 

JSR PC,WAIBIC ;WAIT FOR CTS TO BECOME CLEAR OR TIMEOUT. 

BCS 16$ ;SKIP ERROR REPORT IF SELECTED CTS IS CLEAR. 


sReport CTS MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 
MOV #8203.,ERRNBR ;SELECT THE ERROR NUMBER. 
MOV @ER7B0i1,ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 


B.'s #EM8202 ,R1 ;SELECT THE ERROR MESSAGE 
TRAP CSERROR 
INC R3 ;SELECT THE NEXT LINE NUMBER. 
CMP R3, @NUMLNS ;TEST FOR ALL LINES DONE. 
BLT l2$ ;LOOP IF NOT ALL LINES DONE. 
CLR CTRLCF s;INDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 


L10046: 
TRAP CSETST 





err rr > 


| 
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- DCOMS - 


HARDWARE TEST 


7660 033352 
7661 033356 
7662 033360 


7666 033364 


7673 033370 


7684 033420 
7685 033424 


032767 
002 


012767 


004767 
103402 
000167 


004767 


005003 
010300 
006300 
036067 
001450 


005000 
012705 
004767 
012704 
004767 


000002 
000372 
000025 
177777 


000001 
020155 
010122 


160130 
000322 


157462 


002370 


000377 
163272 
000050 
160270 





146730 


146744 


150536 


146630 





-SBTTL HARDWARE TEST - DCDMS - 

joo RRRRREE REE RE SASS EASES RES EAST AAAS SEES SE ESE ESE EE SERRE R EEE RREE ERASE REEE EES 

;* - Data Carrier Detected Modem Signal Test - 

;* 

i* This test verifies that the DCD modem status signal is working 

;* correctly. It will only be performed if either 25 pin or staggered 

;* loopback is specified. This test uses the looped back RTS signels 

;* i? test the DCD signal. This test is performed on all the active 

i* ines. 

;* 

5 -ERERRRE EERE EER EEE REAR EEE REESE EEE EEEE ESSE EESE EERE E EER ERE REE EERE EEEEEES 
BGNTST 


T21:: 
;¢ 
; Only perform this test if the DUT is in external or staggared loopback mode. 
ait  : lalcanatiaaea ;CHECK TYPE OF LOOPBACK MODE SELECTED. 


B 
JMP 60$ sEXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (83) 
MOV #-1, CTRLCF INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 


MOV #8301.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM8301,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


; Reset the DUT to a known state, remove status codes from the FIFO. 
; Clear TX and RX interrupt enable bits. 
; This subroutine reports error >>>>> 8301 <<<<<, 
rs + een ;RESET THE DUT. 
;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
; Set up the TX/RX associated line number table. 
4s: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


; Set » @ loop which handles one line per iteration. 

; This loop clears all the RTSs and then sets them individually and waits for 
; _ @ response on the associated DCD signal. 

; This loop will clear the TX.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO 
ASL 0 
BIT BITTBL(RO),ACTLNS 
BEQ 10$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers RTS bits. 
; CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV @MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC ,,WTWLNC ;CLEAR ALL THE DUT RTS BITS. 


MOV #40. ,R4 
JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 








SEQ 0182 


15 
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7740 033600 010377 146436 MOV R3,9CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 
7741 033604 032777 010000 146436 BIT #B1T12,QSTATA 


SEQ 0183_—s! 
' HARDWARE TEST - DCDMS - | 

7686 3¢ 

ag J ; Check that the specified DCD is clear. 

7689 033430 010377 146606 : MOV R3,@CSRA ;SET IND.ADR.REG FIELD TO SELECTED LINE. 

7690 033434 032777 010000 146606 BIT #BIT12,aSTATA 

es 033442 001020 BNE 8} ;GO REPORT DCD IS BAD IF BIT IS NOT CLEAR. { 

7693 : Set the RTS for the associated line. 

7694 ; NOTE: If the associated line is not selected, RTS will not A ate been tested j 

wor ; in the RTS test (Only an issue in staggered loopback ) 

; - 

7697 033444 116304 004044 MOVB TXRLNB(R3),R4 ;GET THE ASSOCIATED LINE NUMBER. 

7698 033450 010477 146566 MOV R4,aCSRA ;SET IND.ADR.REG FIELD TO ASSOCIATED LINE. 

Ls 464 033454 052777 010000 146570 BIS #BIT12, @LNCTRA ;SET THE ASSOCIATED LINE RTS. 

7s ; Check that the selected line DCD is active. 

7703 033462 010377 146554 A MOV R3,aCSRA ;SET IND.ADR.REG FIELD TO SELECTED LINEé. 

7704 012701 140050 MOV #140050,R1 ;PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST 

7705 033472 016702 146552 MOV STATA,R2 ;PASS THE ADDRESS OF THE REGISTER TO TEST 

7706 033476 004767 163074 JSR PC,WAIBIS ;WAIT FOR DCD TO BECOME OR TIME 

ee 033502 103411 BCS 10$ ;SKIP ERROR REPORT IF SELECTED DCD IS SET. 

7709 

7710 033504 , 8$: :Report DCD MODEM CONTROL SIGNAL eri ON LINE nn. 

7711 033504 012767 020156 150374. MOV #8302. ,ERRNBR ;SELECT THE ERROR NUMBER. 

7712 033512 012767 012040 150372 MOV #ER7801, ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 

7713 033520 012701 010160 MOV #EM8302,R1 ;SELECT THE ERROR MESSAGE. 

7714 033524 ; ERROR 

033524 104460 TRAP CS$ERROR 

7715 033526 005203 10$: INC R3 ;SELECT THE NEXT LINE NUMBER. 

7716 033530 020327 ©%0010 CMP R3, @NUMLNS ;TEST FOR ALL LINES DONE. 

8 033534 002716 BLT 6$ ;LOOP IF NOT ALL LINES DONE. 

7719 " Set up a loop which handles one line per iteration. 

7720 3 say “loop sets all the RTSs and then clears them individually and waits for 

7721 ; esponse on the selected DCD signal. 

a ; This” loop will clear the TX.IE and RX.IE bits if they are set. 

2 ‘ 3° 
7724 033536 005003 CLR R3 ;CLEAR THE LINE COUNTER. 
7725 033540 010300 12$: MOV R3,RO 
- 7726 033542 006300 ASL RO 

7727 033544 036067 002370 146462 BIT BITTBLCRO),ACTLNS 

AL 4 033552 001451 BEQ 16$ ;DON'T TEST IF NOT ACTIVE LINE. 

7730 ; Set all the DUT LNCTRL registers RTS bits. 

7732 033554 012700 010000 : MOV #BIT12,R0 ;SPECIFY THAT RTS BITS ARE TO BE SET. 

7733 033560 012705 000377 MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 

7734 033564 004767 163122 JSR PC ,WTWLNC ;SET ALL THE DUT RTS BITS. 

7735 033570 012704 000050 MOV #40. ,R4 

i 033574 004767 160120 JSR PC ,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. | 

7738 ; Check that the specified DCD is set. | 
| 7739 3: | 

| 
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| HARDWARE TEST 
7742 033612 001420 
7743 


033614 
033620 
033624 


033632 
033636 
033642 
033646 
033652 


033706 


033712 
033712 
033712 


010377 
012701 
016702 
004767 
103411 


012767 
012767 
012701 


15 


- DCOMS - 


004044 
146416 
010000 


146404 
140050 
146402 
162650 


020157 
012040 
010160 


000010 


146352 


BEQ 14$ 


;GO REPORT DCD IS BAD IF BIT IS NOT SET. 


3¢ 
; Clear the RTS for the associated line. 
; NOTE: If the associated line is not selected, RTS will not have been tested 
; in the RTS test (Only an issue in staggered loopback ) 


MOVB gg i 3 R4 
MOV 4,9CSRA 
146420 BIC #B1T12,@LNCTRA 


‘et THE ASSOCIATED LINE 


NUMBER. 
T IND.ADR.REG FIELD TO ASSOCIATED LINE. 


;CLEAR THE ASSOCIATED LINE R 


Check that the selected line DCD is clear. 


MOV R3,9CSRA 

MOV #140050,R1 

MOV STATA,R2 

JSR PC,WAIBIC 
16$ 


150224 
150222 MOV #€R7801 , ERRBLK 
MOV #€M8302,R1 


R3 
CMP R3, #NUMLNS 
les 


60$: CLR CTRLCF 


;SET IND.ADR.REG FIELD TO SELECTED LINE 


;PASS TIMEOUT OF 40 MILLI-SEC, AND BIT TO TEST. 
;PASS THE ADDRESS OF THE REGISTER io .teST- 


;WAIT FOR DCD TO BECOME CLEAR OR T 


;SKIP ERROR REPORT IF SELECTED DCD IS CLEAR. 


14$: sReport DCD MODEM CONTROL SIGNAL DEFECTIVE ON LINE nn. 
MOV #8303.,ERRNBR ;SELECT THE ERROR NUMBER. 


;SELECT THE ERROR PRINT ROUTINE. 
;SELECT THE ERROR MESSAGE. 


s;SELECT THE NEXT LINE NUMBER. 
;TEST FOR ALL LINES DONE. 
;LOOP IF NOT ALL LINES DONE. 


s;INDICATE THAT WE ARE NOT WITHIN A TEST. 


L10047: 


TRAP 


TRAP 


CSERROR 


CSETST 
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033714 
033714 


033714 


033760 


033766 
033772 
033774 


034000 


034012 
034020 


034022 
034024 
034030 
034034 
034040 


oe ae cae ome 


032767 
001002 


- DTRINT - 


000002 
000352 
000026 
177777 
000001 


020321 
010224 


157514 
000302 


157046 


002370 


000377 
162656 
000050 
157654 


146314 


146330 
146320 
150132 
150126 
150122 


146214 


DiS 


SEQ 0185 


.SBTTL HARDWARE TEST - DTRINT - 
eet iiititititittitiiiitiiitititiiiiitititiiiiiiiiiiiiitiiitiiiiittitittt? ttt? 
- Data Terminal Ready Signal Interactions Test - 


** 


;* This test verifies that the DTR signal (and the looped back DSR and 

;* RI status signals) do not interact with any other modem status signals. 
;* It will only be performed if either 25 pin or st red loopback is 

;* specified. This test is performed on all active lines. 

;* 


SEER EEE REE EEE EER EERE EEE EEE ERE EEE ERE ERE RAE EEE EER EEE EEE ERE EERE ERE EE EEEES 


BGNTST 
T22:: 


g¢ 
; Only perform this test if the DUT is in external or staggered loopback mode. 


oe (halen ;CHECK TYPE OF LOOPBACK MODE SELECTED. 
JMP 60$ ;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (84) 
MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 
MOV #8401.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EM8401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


; Reset the DUT to a known state, remove status codes from the fifo. 
; Clear TX and RX interrupt enable bits. 
; This subroutine reports error >>>>> 8401 <<<<<, 


re + ‘oem sRESET THE DUT. 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
Set up the TX/RX associated line number table. 
4s: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


; Set up a loop which handles one line per iteration. 

; This loop clears all the DTRs and then sets them individually and checks 

; for any responses on oi qmeie other than the associated RI and DSR signals. 
; This loop will clear the [X.IE and RX.IE bits if they are set. 


CLR R3 ;CLEAR THE LINE COUNTER. 
6$: MOV R3,RO 
ASL RO 
BIT BITTBL(RO),ACTLNS 
BEQ 8$ ;D0N'T TEST IF NOT ACTIVE LINE. 
; Clear all the DUT LNCTRL registers DTR bits. 
. CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
MOV #MAPLNS ,R5 ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
JSR PC, WTWLNC ;CLEAR ALL THE DUT DTR BIiS. 


MOV #40. ,R4 


JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 


>) 
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, HARDWARE TEST 


7835 034050 
7836 034054 
7837 034062 
7838 034066 


7843 034072 
7844 034076 
7845 034102 
7846 034106 


7848 034110 
7849 034116 
7850 034124 
7851 034130 

034130 


7855 034132 
7856 034134 
7857 034140 


7864 034142 


7868 034156 


7872 034160 
7873 034164 
7874 034170 
7875 034174 
7876 034200 


7880 034204 


7884 034210 


004767 


010377 
052777 
012704 
004767 


116301 
012702 
004767 
103411 


012767 
012767 
012701 


104460 


005203 
020327 
002722 


- DTRINT - 
; Record the states of the modem status signals. 
161542 : JSR PC,SAVMST ;SAVE THE PRESENT MODEM STATUS STATES. 
; Set the DTR for the selected line. 
146166 : MOV R3,aCSRA ;SELECT THE SELECTED LINE IND.ADR.REG FIELD. 
001000 146170 BIS #BIT9,@LNCTRA ;SET THE SELECTED LINE DTR. 
000050 MOV #40. ,R4 
157626 JSR PC DELAY ;ALLOW 40 MS FOR STATUS SIGNALS 10 STABILIZE. 
; Cheat the present DUT STAT register contents against previous. 
; If any undesired changes have taken place, report the errors. 
004044 . MOVB TXRLNBC(R3),R1 ;SELECT SPECIAL TREATMENT FOR ASSOCIATED LINE. 
120000 MOV #BIT15!BIT13,R2 ;IGNORE DSR AND RI ON ASSOCIATED LINE. 
157444 JSR At CMPMST ;COMPARE OLD AND NEW STAT CONTENTS. 
BCS ;SKIP ERROR REPORT IF NO DISCREPANCIES FOUND. 
;Report ONTERACTIONS FOUND BETWEEN DTR FOR LINE mn AND THE FOLLOWING SIGNALS: 
020322 147770 MOV #8402. ,ERRNBR ;SELECT THE ERROR NUMBER 
012066 147766 MOV #ER8401, ERRBLK ; SELECT THE ERROR PRINT ROUTINE. 
010300 MOV #EM8402 ,R1 ;SELECT THE DTR ERROR MESSAGES. 
ERROR ;ER8401 USES R1, R2, AND R3 VALUES. 
TRAP CSERROR 
; Select the next line and loop if not all possible lines have been handled. 
8$: INC R3 ;SELECT THE NEXT LINE NUMBER. 
000010 CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
BLT 6$ ;LOOP IF NOT ALL LINES DONE. 
; Set up a loop which handles one line per iteration. 
; This “leas sets all the DTRs and then clears them individually and checks 
; for any responses on si pels other than the associated RI and DSR signals. 
; This loop will clear the IX.IE and RX.IE bits if they are set. 
, CLR = RB ;CLEAR THE LINE COUNTER. 
10$ _ R3,RO 
002370 146056 BIT BITTBLC(RO),ACTLNS 
BEQ 12$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Set all the DUT LNCTRL registers DIR bits. 
001000 7 MOV #BIT9,RO ;SPECIFY THAT DTR BITS ARE TO BE SET 
000377 MOV #MAPLNS ,R5S ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
162516 JSR PC ,WTWLNC ;SET ALL THE DUT DTR BITS. 
000050 MOV #40. ,R4 
157514 JSR PC,DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 
; Record the states of the modem status signals. 
161402 j JSR PC,SAVMST ;SAVE THE PRESENT MODEM STATUS STA‘ES. 
3* 
; Clear the DTR for the selected line. 
146026 ' MOV R3,a@CSRA ;SELECT THE SELECTED LINE IND.ADR.F.EG FIELD. 





SEQ 0186 


ee 





-_— ee ee we 





F15 
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SEQ 0187 
| HARDWARE TEST - DTRINT - 
i 7885 034214 042777 001000 146030 BIC #BIT9, ALNCTRA ;CLEAR THE SELECTED LINE OTR. 
7886 034222 012704 000050 MOV #40. »R4 
sod 034226 004767 157466 JSR PC, DELAY ;ALLOW 40 MS FOR STATUS SIGNALS TO STABILIZE. 
7889 Check the present DUT STAT register contents against previous. 
ht ; If any undesired changes have taken place, report the errors. 
7892 034232 116301 004044 MOVB TXRLNBCR3),R1 ;SELECT SPECIAL TREATMENT FOR te LINE. 
7893 034236 012702 120000 MOV #BIT15!B1IT13,R2 ;IGNORE DSR AND RI ON ASSOCIATED LINE. 
7894 034242 004767 157304 JSR PC ,CMPMST ; COMPARE OLD AND NEW STAT CONTENTS. 
7895 034246 103411 BCS 12$ ;SKIP ERROR REPORT IF NO DISCREPANCIES FOUND. 
7896 ;Report INTERACTIONS FOUND BETWEEN DTR FOR LINE nn AND THE FOLLOWING SIGNALS: 
7897 034250 012767 020323 147630 MOV #8403. ,ERRNBR ;SELECT THE ERROR NUMBER. 
7898 034256 012767 012066 147626 MOV #ER8401, ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 
7899 034264 012701 010300 MOV #EM8402 ,R1 ;SELECT THE DTR ERROR MESSAGES. 
7900 034270 ERROR ;ER8401 USES Ri, R2, AND R3 VALUES. 
7901 034270 104460 TRAP CSERROR 
tent ; Select the next line and loop if not all possible lines have been handled. 
7904 034272 005203 12s: INC R3 ;SELECT THE NEXT LINE NUMBER. 
7905 034274 020327 000010 CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
foot 034300 002721 BLT 10$ ;LOOP IF NOT ALL LINES DONE. 
sone 034302 005067 145756 60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
7910 034306 ENDTST 
034306 L10050: 


034306 104401 TRAP CSETST 





—— ee ee 


G15 
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SEQ 0188 
"HARDWARE TEST - RTSINT - 
| 7912 .SBTTL HARDWARE TEST - RTSINT - 
7913 ett tiii iit itt itt ttt titi tiiitiitiiittiitittiitititiiiitititittttt ttt tte ttt ttt 
| Lad i* - Request To Send Signal Interactions Test - 
7916 * This test verifies that the RTS signal (and the looped back DCD and CTS 
7917 3* status signals) do not interact with any other modem status signals. 
7918 ;* It will only be performed if either 25 pin or eoaggeres loopback is 
oa5 ;* specified. This test is performed on all active lin 
;* 
La 11 Periiiiiiiitiittttitiiiitititttttttt ttt ttt iti iiiiiiiiititititititititii titi tt? 
7923 034310 BGNTST 
034310 T23:: 
7924 3+ 
La 3 ; Only perform this test if the DUT is in external or staggared loopback mode. 
7927 034310 032767 000002 145720 — BIT #BIT1,LOPBCK ;CHECK TYPE OF LOOPBACK MODE SELECTED. 
7928 034316 001002 BNE 2$ 
7929 034320 000167 000352 JMP 60$ ;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
7930 034324 000027 2$: TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
7931 034324 012767 000027 145734 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (85) 
7932 034332 012767 177777 145724 MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 
7933 034340 012767 000001 147536 MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 
7934 034346 012767 020465 147532 MOV #8501. ,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
far 034354 012767 010323 147526 MOV #EM8501,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
;* 
7937 ; Reset the DUT to a known state, remove status codes from the fifo. 
7938 ; Clear TX and RX interrupt enable bits. 
444 ; This subroutine reports error >>>>> 8501 <<<<<, 
7941 034362 004767 157120 ‘ JSR PC,CLNRST ;RESET THE DUT. 
7942 034366 103402 BCS 4$ 
hes 034370 000167 000302 JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
3¢ 
Las ; Set up the TX/RX associated line number table. 
6 3- 
tell 034374 004767 156452 4$: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 
7949 : Set up a loop which handles one line per iteration. 
7950 ; This leas clears all the RTSs and then sets them individually and checks 
7951 ; _ for any responses on olgnaie other than the associated DCD and CTS signals. 
La ; This loop will clear the IX.IE and RX.IE bits if they are set. 
7954 034400 005003 : CLR R3 ;CLEAR THE LINE COUNTER. 
7955 034402 010300 6$: MOV R3,RO 
7956 034404 006300 ASL RO 
7957 034406 036067 002370 145620 BIT BITTBLC(RO),ACTLNS 
as 034414 001444 BEQ 8$ ;DON'T TEST IF NOT ACTIVE LINE. 
aoe ; Clear all the DUT LNCTRL registers RTS bits. 
7962 034416 005000 ; CLR RO ;SPECIFY THAT ALL LNCTRL BITS TO BE CLEARED. 
7963 034420 012705 000377 MOV #MAPLNS ,RS ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
7964 034424 004767 162262 JSR PC, WTWLNC ;CLEAR ALL THE DUT RTS BIiS. 
7965 034430 012704 000050 MOV #40. ,R4 
7966 034434 004767 157260 JSR PC, DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 
i . 





we we eee = 
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- RTSINT - 


, HARDWARE TEST 


7974 034444 
7975 034450 
7976 034456 
7977 034462 


7982 034466 
7983 034472 
7984 034476 
7985 034502 


7987 034504 
7988 034512 
7989 034520 
7990 034524 

034524 


7994 034526 
7995 034530 
7996 034534 


8003 034536 


8007 034552 


8011 034554 
8012 034560 
8013 034564 
8014 034570 


| 7969 
7970 034440 
8015 034574 


8019 034600 


; 8023 034604 
' 


004767 


010377 
052777 
012704 
004767 


116301 
012702 
004767 
103411 


012767 
012767 
012701 


104460 


005203 
020327 
002722 


005003 
010300 
006300 
036067 
001445 


012700 
012705 
004767 
012704 
004767 


004767 


010377 


161146 


145572 
010000 
000050 
157232 


004044 
014000 
157050 


020466 
012066 
010377 


000010 


002370 


010000 
000377 
162122 
000050 
157120 


161006 


145432 


SEQ 0189 
; Record the states of the modem status signals. 
; JSR PC,SAVMST ;SAVE THE PRESENT MODEM STATUS STATES. 
3¢ 
; Set the RTS for the selected line. 
‘ MOV R3,aCSRA ;SELECT THE SELECTED LINE IND.ADR.REG FIELD. 
145574 ae @B1T12  OLNCTRA ;SET THE SELECTED LINE RTS. 
JSR PC, DELAY ;ALLOW 40 MS FOR STATUS SIGNALS TO STABILIZE. 
3* 
; Check the present DUT STAT register contents against previous. 
; If any undesired changes have taken place, report the errors. 
MOVB TXRLNBC(R3),R1 ;SELECT SPECIAL TREATMENT FOR ASSOCIATED LINE. 
MOV #BIT12!BIT11,R2 ;IGNORE DCD AND CTS ON ASSOCIATED LINE. 
JSR PC,CMPMST ;COMPARE OLD AND NEW STAT CONTENTS. 
BCS 8$ ;SKIP ERROR REPORT IF NO DISCREPANCIES FOUND. 
;Report INTERACTIONS FOUND BETWEEN RTS FOR LINE nn AND THE FOLLOWING SIGNALS: 
147374 MOV #8502.,ERRNBR ;SELECT THE ERROR NUMBER. 
147372 MOV #ER8401 , ERRBLK ;SELECT THE ERROR PRINT ROUTINE. 
MOV #€M8502,R1 ; SELECT THE RTS ERROR MESSAGES. 
ERROR ;ER1901 USES R1, R2, AND R3 VALUES. 
TRAP CSERROR 
3° 
; Select the next line and loop if not all possible lines have been handled. 
8S: INC RB ;SELECT THE NEXT LINE NUMBER. 
CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
BLT 6$ ;LOOP IF NOT ALL LINES DONE. 
;* 
; Set up a loop which handles one line per iteration. 
; This loop sets all the RTSs and then clears them individually and checks 
; _ for any responses on si eels other than the associated DCD and CTS signals. 
; This loop will clear the IX.IE and RX.IE bits if they are set. 
CLR = R3 ;CLEAR THE LINE COUNTER. 
10$ MOV R3,RO 
ASL RO 
145462 BIT BITTBLCRO),ACTLNS 
BEQ 12$ ;DON'T TEST IF NOT ACTIVE LINE. 
; Set all the DUT LNCTRL registers RTS bits. 
’ MOV #BIT12,R0 ;SPECIFY THAT RTS BITS ARE TO BE SET. 
MOV #MAPLNS ,R5 ;SPECIFY THAT ALL LNCTRLS ARE TO BE CHANGED. 
_ PC ,WTWLNC ;SET ALL THE DUT RTS BITS. 
JSR PC, DELAY ;DELAY FOR 40 MS TO ALLOW SIGNALS TO SETTLE. 
; Record the states of the modem status signals. 
; JSR PC,SAVMST ;SAVE THE PRESENT MODEM STATUS STATES. 
; Clear the RTS for the selected line. 
; MOV R3,@CSRA ;SELECT THE SELECTED LINE IND.ADR.REG FIELD. 





115 
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SEQ 0 
| HARDWARE TEST - RTSINT - a 

8024 034610 042777 010000 145434 BIC rt ag F @LNCTRA ;CLEAR THE SELECTED LINE RTS. 
8025 034616 012704 000050 MOV #40. 
aast 034622 004767 157072 JSR PC, BELAY ;ALLOW 40 MS FOR STATUS SIGNALS TO STABILIZE. 
8028 Check the present DUT STAT register contents against previous. 
25 34 ; If any undesired changes have taken place, report the errors. 
8031 034626 116301 004044 ; MOVB TXRLNBCR3),R1 ;SELECT SPECIAL TREATMENT FOR ASSOCIATED LINE. 
8032 034632 012702 014000 MOV #BIT12!BIT11,R2 ;IGNORE DCD AND CTS ON ASSOCIATED LINE. 
8033 034636 004767 156710 JSR PC ,CMPMST ;COMPARE OLD AND NEW STAT CONTENTS. 
8034 034642 103411 BCS 12$ ;SKIP ERROR REPORT IF NO DISCREPANCIES FOUND. 
8035 ;Report INTERACTIONS FOUND BETWEEN RTS FOR LINE mn AND THE FOLLOWING SIGNALS: 
8036 034644 012767 020467 147234 MOV #8503. ,ERRNBR ;SELECT THE ERROR NUMBER. 
8037 034652 012767 012066 147232 MOV #ER8401, ERRBLK ; SELECT THE ERROR PRINT ROUTINE. 
8038 034660 012701 010377 MOV #EM8502.R1 ;SELECT THE RTS ERROR MESSAGES. 
8039 034664 ERROR ;ER1901 USES R1, R2, AND R3 VALUES. 
sees 034664 104460 TRAP CS$ERROR 
seas ; Select the next line and loop if not all possible lines have been handled. 
8043 034666 005203 i2s: INC R3 ;SELECT THE NEXT LINE NUMBER. 
8044 034670 020327 000010 CMP R3, #NUMLNS ;TEST FOR ALL LINES DONE. 
peak 034674 002721 BLT 10$ ;LOOP IF NOT ALL LINES DONE. 
ood 034676 005067 145362 60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
8049 034702 ENDTST 

034702 L10051: 


034702 104401 TRAP CSETST 


J15 
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HARDWARE TEST 


8076 034750 


8082 034756 
8083 034762 
ee 034764 


tes 034770 


2 
8093 034774 
8094 035000 
8095 035002 
96 035006 
8097 035012 

00 
8101 035016 
aio 035022 


8106 035026 


032767 
002 


012767 


004767 
103402 
000167 


004767 


012705 
000 


016705 
004767 


016705 


156524 
000224 


156056 


000377 
161704 


156430 
161724 


145212 
161204 


145202 


145324 


145340 
145330 
147142 
147136 
147132 





.SBTTL HARDWARE TEST - TXLNS - 
FOO RRRRR REE ERR E REE E REAR EERE EEE ERE EE EERE AREER EERE E EEE EEE EERE EEE RE EE EEE 


;* - TX Lines Test - 


* 
7* This test verifies that the TX lines and RX lines are working correctly 
:* through the device cables, distribution panel (if installed), and 

3* loopback ee It will “~~, be performed if either 25 pin or 
;* staggered loopback is specified. is test sends a character on each 
;* active line and verifies that the proper character is detected on each 
:* receive line. 

;* 


FATE EERE EE EEE EEE EEE EEE EERE EEE ERE EERE EEE EEE EER ERE EEE EEE EEE EEE EE REE ES 


BGNTST 
T24:: 


; Only perform this test if the DUT is in external or staggared loopback mode. 
a" all tata ;CHECK TYPE OF LOOPBACK MODE SELECTED. 


JMP 60$ sEXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2s: TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV #TNUM, TSTNUM ;SET UP_THE TEST NUMBER. (86) 

MOV #-1,CTRLCF ; INDICATE THAT WE ARE IN A TEST. 

MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 


MOV #8601.,ERRNBR ;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #EMB601,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


3* 

; Reset the DUT to a known state, remove status codes from the fifo. 
; Clear TX and RX interrupt enable bits. 

; This subroutine reports error >>>>> 8601 <<<<<, 


= + amd ;RESET THE DUT. 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
; Set up the TX/RX associated line number table. 
43: JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


; Set up transmission an reception parameters for all lines. 
; 9600 baud,8 char,1 stopbit,no parity. 


MOV #MAPLNS ,RS 1eeieer ALL LINES TO BE SET UP. 

CLR RO PECIFY ALL LNCTRL BITS TO BE CLEARED. 

JSR PC ,WTWLNC ‘CLEAR ALL win BITS. 

MOV #156430,RO ;SET UP BAUD R ATE, ETC. 
JSR PC,WTWLPR ;SET COMMUNICATION PARAMETERS ON ALL LINES. 


3° 
; Enable transmitters on all active lines. 


MOV ACTLNS,RS ;PASS ACTIVE LINE BIT MAP. 
JSR PC, TXENBL ;ENABLE TRANSMISSIONS ON ALL LINES. 


; Enable reception on all lines associated with active lines. 
MOV ACTLNS,R5S ;GET ACTIVE LINES BIT MAP TO CONVERT. 


SEQ 0191 


8107 035032 


8120 035074 
8121 035100 
8122 035102 
8123 035106 
8124 
8125 
8126 


8143 035172 


9 
8150 035174 
035212 
035212 
8155 035214 
935220 


035220 
035220 


004767 
012700 
004767 


020327 
002760 


016705 


005267 
012767 
012701 
104460 


005067 


104401 


- TXLNS - 


156606 
000004 
161644 


002370 
145152 
100000 
145144 


000010 


145120 
000062 
100000 
145114 


157236 


177600 
177760 


004004 
002370 


146706 
011742 
010464 


145044 


145152 


146704 


6$: MOV 
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PC , CONMAP 
#B1T2,RO 
PC, WTWLNC 


K15 


SEQ 0192 


;CONVERT TO ASSOCIATED LINE MAP. 
INDICATE RX.ENAGLE BIT TO BE SET. 
;ENABLE RX ON THE ASSOCIATED LINES. 


which sends a character on each active line. 


R3 
R3,RO 
RO 


peat eons 


+ alas 


3 
R3, #NUMLNS 
6$ 


;CLEAR THE LINE COUNTER. 


DON'T SEND IF NOT ACTIVE LINE. 

;SET_UP_THE IND.ADR.REG FIELD FOR PROPER LINE. 
;OR IN THE TX.DATA.VALID BIT TO THE TX CHAR. 
;SEND THE CHARACTER. 

;SELECT THE NEXT LINE NUMBER. 

;TEST FOR ALL LINES DONE. 

;LOOP IF NOT ALL LINES DONE. 


3+ 
; Set up loop which waits for all chars to be received or time-out to occur. 


10$: 


ACTLNS ,RS 
#50. ,R1 
#BIT15,R2 
RBUFA,R4 
R2,R3 

PC ,MSLGET 
12$ 

RO,R3 

R3 


#177600,RO 
#177760,R3 


R3 
cians 
BITTBL(RO),RS 
10$ 


60$ 


s;SELECT 50 MS TIME-OUT VALUE. 

;SELECT DATA.VALID BIT TO BE TESTED. 
;SPECIFY THAT BIT IS FOUND IN RBUF REG. 
;SPECIFY TO WAIT FOR BIT TO BE SET. 
;WAIT FOR A VALID CHAR TO BE + aaah 
;GO ANALYSE PROBLEM IF TIME-OUT 

;TEST THE RX CHARACTER TO VERIFY THAT 
; IT IS A VALID COMBINATION OF LINE 

; NUMBER AND DATA. IGNORE ANY ERROR 
; BITS WHICH ARE SET. 


;RX CHAR A VALID COMBINATION? NO, IGNORE IT. 
;YES, CLEAR THE BIT FOR THE ASSOCIATED LINE. 
sALL ACTIVE LINES DONE? NO, LOOP. 

;YES, SUCCESSFUL COMPLETION. EXIT THE TEST. 


4 Not all active lines received correct charac 
; Report “TX/RX LINE ERROR ON THE FOLLOWING POOPED. BACK TX LINES:” 


; rror number 


128: INC 
MOV 


MOV 
R 


ERRO 


60$: CLR 


ENDTST 


ERRNBR 


#ER6401, ERRBLK 
#EM8602 ,R1 


CTRLCF 


>>>>> 8602 «<<<<, 


s;SELECT PROPER ERROR NUMBER (8602). 
s;SELECT PROPER ERROR REPORTING ROUTINE. 
;SELECT PROPER ERROR MESSAGE. 


TRAP CSERROR 
sINDICATE THAT WE ARE NOT WITHIN A TEST. 
L1005e2: 
TRAP CSETST 
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| HARDWARE TEST 


035222 
035222 


035222 


035266 


035274 
035300 
035302 


035306 


035312 


035330 


035334 
035340 


035344 


ee ee ee 


032767 


012767 


004767 
103402 
000167 


004767 
012705 
005000 
004767 


012700 
004767 


016705 
004767 


016705 


- TXLINT - 


000002 
000376 


010554 


156206 


000326 


355540 


000377 
161366 


156430 
161406 


144674 
160666 


144664 


145006 


145022 


146614 





SEQ 0193 
.SBTTL HARDWARE TEST - TXLINT - 
eeriitiiiiiiiitt titi titi i titi ttittti titi tititi iti ttttitttitititiiii titi it ttt ttt ts 
;* - TX Lines Interactions Test - 


;* 

;* This test verifies that each TX line does not interact with any other 
;* TX lines _or modem control signals. It will only be performed if 

;* either 25 pin or staggered loopback is specified. This test causes 
i* a BREAK condition on each active line individually and looks for any 
i* characters generated on other lines or any changes to modem control 
:* signals on active lines. 

1 


~EEEEEEEREEREEERE REESE EEE EERE EERE ERERERERE EER ERE ERE REE EEE EEE EEE ESE EERES 


BGNTST 
T25:: 


;* 
; Only perform this test if the DUT is in external or staggared loopback mode. 


oa  eiaiteae ;CHECK TYPE OF LOOPBACK MODE SELECTED. 
JMP 60$ ;EXIT THIS TEST IF IN INTERNAL LOOPBACK. 
2$: TNUM == TNUM + 1 ;INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV #TNUM, TSTNUM ;SET UP _THE TEST NUMBER. (87) 
MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
MOV #1,ERRTYP ;SET ERROR TYPE IN ERROR TABLE. 
MOV #8701. , ERRNBR SSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV #€M8701,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 


3° 

; Reset the DUT to a known state, remove status codes from the fifo. 
; Clear TX and RX interrupt enable bits. 

; This subroutine reports error >>>>> 8701 <<<<<, 


= > aeaemaaa ;sRESET THE DUT. 

JMP 60$ ;ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
; Set up the TX/RX essociated line number table. 
43; JSR PC, ASLNTL ;SET UP THE ASSOCIATED LINE TABLES. 


;¢ 
; Set up Sreneasenren an reception parameters for all lines. 
; 9600 baud,8 char,1 stopbit,no parity. ~ 


MOV #MAPLNS ,RS ;INDICATE ALL LINES TO BE SET UP. 

CLR RO sSPECIFY ALL LNCTRL BITS TO BE CLEARED. 

JSR PC ,WTWLNC ;CLEAR ALL LNCTRL BITS. 

MOV #156430 ,RO ;SET UP BAUD RATE,ETC. 

JSR PC,WTWLPR ;SET COMMUNICATION PARAMETERS ON ALL LINES. 


; Enable transmitters on all active lines. 


MOV ACTLNS, RS ;PASS ACTIVE LINE BIT MAP 
JSR —- PC, TXENBL TENABLE TRANSMISSIONS ON ALL LINES. 


; Enable reception on all lines associated with active lines. 
MOV ACTLNS,RS ;GET THE ACTIVE LINE MAP TO CONVERT. 


omen come eemagenan- 


en 
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- TXLINT - 
156270 
000004 
161326 


| HARDWARE TEST 


8215 035350 
8216 035354 
asta 035360 


004767 
012700 
004767 


002370 144634 


8228 i 
8229 ; 


144632 8$: 
000010 


144634 
000010 


000012 
035432 156262 


8240 : 
8241 ; 
8242 ; 


3 

035436 160150 
020776 
157442 


004767 
012767 146436 
004767 


103067 


010377 144560 
052777 000010 
012704 000012 
156220 


144562 


000013 


144534 10$: 


177760 
004044 


; Set 


8256 ; 
3 _ 
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SEQ 0194 
JSR PC , CONMAP ;CONVERT TO ASSOCIATED LINE MAP. 
MOV #BIT2,RO ;INDICATE RX.ENABLE BIT TO BE SET. 
JSR PC, WTWLNC ;ENABLE RX ON THE ASSOCIATED LINES. 
up @ loop which sets the BREAK bit on each active line individually and 
checks for interactions. 
CLR R3 ;CLEAR THE LINE COUNTER. 
MOV R3,RO 
ASL RO 
BIT BITTBL(RO),ACTLNS 
BEQ 16$ ;LINE ACTIVE? NO, SKIP THE LINE. 


+ Cheer the BREAK bits for all lines 
Delay 10 ms to all lines to get oul of BREAK condition. 


CLR RO ;CLEAR LINE COUNTER. 

MOV RO, @CSRA ;SET UP THE IND. ADR. REG FILED FOR PROPER LINE. 
BIC #BIT3,@LNCTRA  ;CLEAR A BREAK BIT 

INC R ;SET LINE COUNTER TO NEXT LINE. 

CMP RO, @NUMLNS 

NE 8$ ;DONE?_ NO, LOOP TO DO NEXT LINE. 

MOV #10. ,R4 ;SELECT 10 MS DELAY 

JSR PC DELAY ;DELAY TO ALLOW BREAKS TO BE CLEARED. 


Record the states of the modem control signals. 
Purge the FIFO of any unwanted characters 
This routine reports errors with numbers >>>>> 8702 thru 8704 <<<<<, 


PC, SAVMST sRECORD THE STATES OF MODEM STATUS SIGNALS. 


;PURGE THE FIFO. 


BCC sPURGE SUCCESSFUL? NO, EXIT TEST. 


: Set the break on the selected line. 


MOV R3,9CSRA :SET UP THE IND.ADR.REG FIELD FOR PROPER LINE. 
BIS @BIT3,Q.NCTRA ;SET THE BREAK BIT IN LNCTRL REGISTER. 
MOV #10. ,R4 ;SELECT 10 MS DELAY 


JSR PC, DELAY ;DELAY TO ALLOW BREAK TO BE SET. 
Verify that only the associated line receives characters. 

MOV #11. ,RO0 ;ALLOW UP TO 10 “LEGAL” CHARACTERS. 
MO @RBUFA,R1 ;READ A CHARACTER FROM THE DUT. 

oe ze ;DATA VALID? NO, CHECK MODEM SIGNALS. 

BIC #177760,R1 ;GET LINE NUMBER OF RX CHAR. 
CMPB TXRLNBC(R1),R3 ; COMPARE AGAINST TX ASSOCIATED LINE NUMBER. 
NE 12$ 31S CHARACTER ON ASSOCIATED LINE? NO, ERROR. 
DEC RO ; COUNT THIS CHARACTER. 

BNE 10$ ;T00 MANY RXED? NO, LOOP TO LOOK FOR MORE. 

BR 50$ ;YES, REPORT ERROR AND ABORT. 


; “Character received on wron 
; Re 


lin 
rt “DATA LINE INTERACT ONS ON LINE nm DECIMAL.” 
rror number >>>>> B705 <<«cc, 


ee ee ee ae - - 
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HARDWARE TEST 
8272 
8273 035534 
8274 035542 
8275 035546 


8276 035554 
035554 


8295 035510 
8296 035612 
8297 035616 
8298 035620 


8304 035622 
8305 035630 


06 
eof 035634 
09 035640 


035640 
035640 


eS 


012767 
012701 
012767 


104460 


103411 


012767 
012767 
012701 


104460 


005203 
020327 
002663 
000405 


012767 
004767 


005067 


104401 


€ 
- TRLINT - SEQ 0195 
021001 146344 12$:' MOV #8705. ,ERRNBR 
010614 MOV #EM8702,R1 ;SELECT THE ERROR MESSAGE. 
012040 146336 atte #ER7801 ,ERRBLK i SELECT THE ERROR REPORT ROUTINE. 
TRAP CSERROR 
; Check for modem signel interactions. 
143: CLR R2 ;SELECT NO BITS TO BE tne 
155766 JSR PC ,CMPMST ;COMPARE OLD AND NEW MODEM STA 
BCS 16$ ;STATUS CHANGES? NO, SKIP ERROR REPORT. 
; Modem status changes have been discovered. 
; Re rt >>>>> B706 <<<c<, 
; “INTERACTIONS FOUND BETWEEN TX FOR LINE mn AND THE FOLLOWING SIGNALS: ” 
021002 146312 MOV #8706. ,ERRNBR 
012066 146310 MOV #ER840i, ERROLK 
010643 MOV #E€M8703,R1 
ERROR ;ERR8401 USES Rl, R2, R3 VALUES. 
TRAP CSERROR 
; Select next line and test it if we are not done. 
16$:, INC R3 
000010 CMP R3, @NUMLNS Sg FOR ALL LINES DONE. 
BLT 6$ L DONE? NO, LOOP TO DO NEXT LINE. 
BR 60$ yes, EXIT THE TEST. 
i* 
; Found an error not directly related to the test. 
Report error >>>>> B7O7 <<ccc, 
; Abort the test. 
021003 146256 om MOV #8707. ,ERRNBR 
160146 JSR PC, TSABRT 
144424 60$: CLR CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 


L10053: 
TRAP CSETST 





—_—— ee ee ee ee ee 
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SEQ 0 
HARDWARE TEST - REPBMP - _ 
| 8311 .SBTTL HARDWARE TEST - REPBMP - 
8312 FOF RERERER EERE EERE EEE EEEE EEE EEE EEE EEEEEEEEEEEEEEEEEEE ETERS EERE EEEEEEEES 
8313 ;* - Report ~ BMP codes in the queue - 
8314 ;* This is _@ pseudo-test used to report any BMP codes that were found 
tt ;* in the DUT's FIFO during previous test, and logged in the BMP code 
;* queue. 
8317 ;* It is unlikely that running this pseudo-test alone will produce any | 
seis ;* error reports. 
7% 
8320 PCP I ITSP i TTT TPP PPP iri tir tri itt ttt ttt ttt TTT TTT TTT TTT TTT TTT TTT TTT TTT TT | 
8321 035642 GNTST i 
035642 T26:: 
8322 000032 TNUM == TNUM «+ 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
8323 035642 012767 000032 144416 MOV @TNUM, TSTNUM ;SET UP THE .TEST NUMBER. (93) 
8324 035650 012767 177777 144406 MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
8325 035656 016702 144560 MOV BMPCQP ,R2 ;GET THE CONTENTS OF THE POINTER. 
8326 035662 012703 002444 MOV #BMPCQB ,R3 ;GET THE START ADDRESS OF THE QUEUE. 
8327 035666 020203 CMP R2,R3 3SEE IF THE POINTER HAS MOVED FROM THE BASE. 
e324 035670 001411 BEQ 60$ sEXIT NO CODES IN THE QUEUE. 
8330 ; There is at least one BMP code in the queue. Report the error. 
8333 
8334 035672 012701 011244 MOV #EM9304 ,R1 sPASS THE FIRST MESSAGE TO BE REORTED. 
8335 035676 ERRDF 9301,EM9301,ER9301 ; >>>>> ERROR #9301 <<<<<, 
035676 104455 TRAP CSERDF 
035700 022125 -WORD 9301 
035702 011127 -WORD &M9301 
_— 035704 012620 -WORD ER9301 
224 035706 012767 002444 144526 MOV #BMPCQB,BMPCQP ;SET POINTER BACK TO THE BEGINING OF THE QUE. 
8339 035714 005067 144344 60$: CLR CTRLCF s; INDICATE THAT WE ARE NOT WITHIN A TEST. 
8340 035720 ENDTST 
035720 L10054: 


8331 :- 
8332 sReport error BMP CODE FOUND IN TEST nn, BMP CODE:nnnnnn” 
035720 104401 TRAP CSETST 


C16 
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HARDWARE TEST 


| 
| 
i 


8 
8364 


8365 
8375 
8376 


8377 
8378 


8379 
8380 


8381 
8382 


8383 
8384 


035722 
035722 
035724 


035724 
035724 
035726 
035730 
035732 


035734 
035734 
035736 
035740 
035742 


035744 
035744 
035746 
035750 
035752 
035754 


035756 
035756 
035760 
035762 
035764 
035766 


035770 
035770 
035772 
035774 
035776 
036000 


000027 


000031 
036002 
160000 
177776 


001031 


177777 


003032 
036101 
000377 
000001 
000003 


003032 
036157 
177400 
000000 
000006 


- REPBMP - 
; MEAS AA AAA AAA K ALAA SASL LAK ALK SKS SASK SK KALA SASL KAANeet 


3 VOHB . HWQ 


; SSKLLKSLA SLA SK LAK AL SALSA SASL LALLA SANSA SALSA LASS LASS 


-SBTTL HARDWARE PARAMETER CODING SECTION 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
L$HARD: : 


;DEVICE CSR ADDRESS QUESTION: 
GPRMA HWPTQ1,0,0,160000,177776, YES 


;DEVICE INTERRUPT VECTOR QUESTION: 
GPRMA HWPTQ2,2,0,40,776,YES 


sACTIVE LINES BIT MAP QUESTION: 
GPRMD HWPTQ3,4,0,MAPLNS,0,177777, YES 


;TYPE OF LOOPBACK QUESTION: 
GPRMD HWPTQ4,6,0,377,1,3,YES 


; INTERRUPT BR LEVEL QUESTION: 
GPRMD HWPTQS,6,0,177400,0,6, YES 


T$CODE 
HWPTQ1 
T$LOLIM 
T$HILIM 


T$CODE 
HWPTQ2 
T$LOLIM 
T$HILIM 


T$CODE 
HWPTQ3 
MAPLNS 
TS$LOLIM 
T$HILIM 


T$CODE 
HWPTQ4 
377 
T$LOLIM 
T$HILIM 


T$CODE 
HWPTQS 
177400 
T$LOLIM 
T$HILI™M 


SEQ 0197 


-WORD L10055-L$HARD/2 


a a ce 


D16 
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HARDWARE PARAMETER CODING SECTION 


6 
8387 036002 
036002 


8397 036020 


8398 036053 


8399 036101 


} 
| 
| 036042 
} 


8400 036157 


036201 


= ee 


ENDHRD 


122 HWPTQ1: 


124 HWPTQ2: 


124 HWPTQ3: 


120 ~ HWPTQ4: 


124 HWPTQS5: 


-EVEN 


———————— nee 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-EVE 
L10055: 


/CSR ADDRESS: / 


ZINTERRUPT VECTOR ADDRESS: / 


/ACTIVE LINE BIT MAP: / 


/TYPE OF LOOPBACK (1=INTERNAL ,2=H3277,3=H325):/ 


ZINTERRUPT BR LEVEL: / 


SEQ 0198 


E16 
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| 


% 


i 


' 

! 
' 
' 


-) 


8405 


8424 036204 
036204 
036206 


8435 036206 
036206 
036210 
036212 


8437 036214 
036214 
036216 
036220 
036222 
036224 


8441 036226 
036226 


8450 036226 
036231 
036234 
036237 
036242 
036245 
036250 
036253 
036256 
036261 
036264 
036267 
036272 
036275 
036300 


000010 


000130 
036226 
000020 


001052 
036302 
177777 
000000 
177777 


HARDWARE PARAMETER CODING SECTION 


4 


5 56 96 9h 96 96 6 6 6 i i lh 0 hu ll ll ll hh uu ul ul lh hh ht uh 0h 0h 0 0 9h gh ok gg 


; VOHB . SWQ 


| MKSKSLKSLA SLL LAS LALA LA SALAS LA KASS LASS KAS ees 


.SBTTL SOFTWARE PARAMETER CODING SECTION 


344 
; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BCNSFT 


;UNIT NUMBER PRINTOUT QUESTION: 
GPRML SWPTQ1,0,20,YES 


s;NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE QUESTION: 


GPRMD SWPTQ2,2,0,177777,0,177777, YES 


-EVEN 
ENDSFT 


L10056: 


- EVEN 


SWPTQ1: .ASCIZ /REPORT UNIT NUMBER AS EACH UNIT IS TESTED: / 


SEQ 0199 


-WORD L10056-L$SOFT/2 
L$SOFT:: 


T$CODE 
SWPTQ1 
20 


T$CODE 
SWPTQ2 
177777 
T$LOLIM 
T$HILIM 
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— — eee 


| SOFTWARE PARAMETER CODING SECTION 
8451 036302 116 125 115 SWPTQ2: .ASCIZ /NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE: / 


036310 040 117 106 
036313 040 111 116 
036316 104 111 126 
036321 111 104 125 
036324 101 114 040 
036327 104 101 124 


8452 .EVEN 


F16 


7:53 Page 125-1 


SEQ 0200 


' 
eee) 


um 6 ee iO 


— ee eee ee eee ee 


G16 
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| SOFTWARE PARAMETER CODING SECTION 


| 454 
H sees 5 555 96 9 96 i ih 9 gh ho a ul a sa i gk os ok so ks bo a ss bb 9 bb 9 9S 0 96 0h 9b 
8457 ; SKL6.P11 


8459 | SEK LKLAL LAA LL SLL SK ALKA SAL LK SALSA LA KASS SS Ne 


SEQ 0201 


2 
8463 036372 $PATCH: : 
8464 036372 -BLKW 24 


5 
8476 036442 LASTAD 


036442 000000 -WORD 0 
036444 000000 : -WORD 0O 
036446 L$LAST:: 

8477 036446 ENDMOD 


8485 000001 -END 
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Symbol table 
| 


‘ ACTLNS 
iA 


002234 


002242 


°o 
ADHOHOOAOOAHAIAAOIAOHOAOIHAIAIAIAIAAAIAIAIAAHAAHGHAIAHHAAAHAAAAAHAARHAAAARAAAHAAAAGA AAAAGD 


CSREVI= 


000000 G 
002264 G 
000052 
000061 
000022 
000004 
000002 
000062 
000012 
000035 
000006 
000074 
000075 
000036 
000044 
000051 
000024 
000053 


000004 


C$RFLA= 
C$RPT = 
C$SEFG= 


EMS303 


000021 
000025 
000046 
000041 
000037 
000076 
013720 
002212 
000000 
013760 
002242 
020040 
000036 
000035 
000034 
000037 
000040 
004247 
004254 
004327 
004353 
004422 
004471 
004546 
004604 
004676 
005013 
005075 
005147 
005176 
005226 
005257 
005276 
005315 
005373 
014570 
014654 
005473 
005531 
005621 
005711 
005774 
006017 
006053 
006076 
006132 
006216 
006250 
006302 
006332 
006360 
006416 
006446 
006472 
006530 
006555 
006634 


H16 
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EMS401 
EM5402 
EMS501 
EMS601 
—MS701 
EM6401 
EM6402 
EM6601 
EM6602 
EM6701 
EM6702 
€M7801 
EM7802 
EM7901 
EM7902 
EM8001 
EM8002 
EM8101 
EM8102 
EM8201 
EM8202 
EM8301 
EM8302 


DHHOHHHHHOHHIAIAAHIAHHAHAHHAAHAAHAHAAARAHAAAAAAAAAAAAAAAGA AHA aD 
m 
= 
@ 
coal 
So 
Le) 


G ER7801 


006705 


oO 
purd 
oOo 
Ww 
— 
Ww 
KDOHOHHKOOOHOHOHHD NDNHHOHHHAAAAHAAHHAHHAAHHAHHAHHAAHARHAAHHAAHAHHHAHHHAAHAHHAAAAARAM 


ER8401 
ER9001 


012066 G 


036101 


SEQ 0202 
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| Symbol table 
|HWPT@S 036157 
IBE = 010000 
IDU = 000040 
IER = 020000 
IESTAT 002270 
INDATP 014214 
INDTPX 014244 
ISR = 000100 
IXE = 004000 
T$AU_ = 000041 
I$AUTO= 000041 
I$CLN = 000041 
T$0U_ = 000041 
I$HRD_ = 000041 
I$INIT= 000041 
I$MOD = 000041 
I$MSG_= 000041 
I$PROT= 000040 
I§PTAB= 000041 
I$PWR = 000041 
I$RPT = 000041 
I$SEG = 000041 
I$SETU= 000041 
I$SFT = 000041 
I$SRV = 000041 
I$SUB = 000041 
I$TST = 000041 
J$UMP = 000167 
LGRPIM 002272 
LGRP2M 002274 
LINBIT 014314 
LNCTRA 002252 
LNCTRO= 000010 
LOE = 040000 
LOPBCK 002236 
LOT = 000010 
LPCSLT= 000036 
LPRA 002246 
LPRO_ = 000004 
L$ACP 002110 
L$APT 002036 
L$AU_ 020120 
L$AUT 002070 
L$AUTO 017752 
L$CCP_ 002106 
L$CLEA 017754 
sCO 002032 
LMDEPO 202011 
L$DESC 004164 
L$DESP 002076 
L$DEVP 002060 
L$DISP 002124 
L$OLY 002116 
L$DTP_ 002040 
L$DTYP 002034 
L$DU_ 020012 
|L$0UT 002072 
{ 


AADAOOOAA 


HAOWHOHOOHOOOOOMAAIHIHAAAAAHAHAAAAAGD 


L$DVTY 


“ 110025 


004154 
002052 
002044 
004104 
002102 


017752 
020010 
020116 
020124 
020414 
021002 
021422 


DAOAOAHOHOAHAOHHIHOAAIAAHAHHOHAAHAAVAAHAAHAAAAAD 


L10026 
L10027 
L10030 


022162 
022722 
023316 


002350 


HHOHADHHHAHAAAAANHD 


AND 


AOD 


116 


PARIA 


SVCTST= 


002352 
002354 
002356 
002360 
002362 
002364 
002366 
002276 
000016 
001000 
004136 
004114 
002000 
000000 


000100 


oS 
So 
So 
g 
o 


ooooo 
ooooo 
ooooo 
Wwe 
$oLoHh 
ooooo 


o 
= 
> 
~ 
vl 
ine) 


015034 


000001 


o 
DAHAHOOHOAHAIAIAHIAOAIHIAAAIAVNVAAHAVHAHAARAUAVAAAARAAAAHAHARAAARHA ABAVAHAVHHHHHAAAH 


SWPTQ1 


T$$AU = 
T$$AUT= 


036226 
brpaes: 


000000 
000032 
177777 
000001 
010022 
010017 


OOOOH HOHHAAIAAANOAHAAAAAAARAARAAAAMH 


ee eee ae = = 


SEQ 0203 


nn Ee ee ee ee —— - ee -- 


J16 
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SEQ 0204 
| Symbol table 
T$$CLE= 010020 T1 020126 G T19 032250 G 14 021424 G WAIBIS 016576 G 
T$$DU = 010021 T10 024534 G T2 020416 G 15 022164 G WAITTX 016652 G 
T$$HAR= 010055 T1l 025226 G T20 032664 G 16 022724 G WORD1 002314 G 
T$$HW = 010000 T12 025716 G T21 033300 G 17 023320 G WTWLNC 016712 G 
T$$INI= 010016 T13 026362 G T22 033714 G 18 023742 G WTWLPR 016742 G 
T$$MSG= 010013 714 027006 G T23 034310 G 19 024232 G X$ALWA= 000000 
T$$PRO= 010015 T15 027506 G T24 034704 G UAM = 000200 G X$FALS= 000040 
T$$RPT= 010014 T16 030434 G T25 035222 G ote 002240 G X$OFFS= 00 
T$$SOF= 010056 T17 031134 G T26 035642 G UNSDIV 016366 G X$TRUE= 00002 
isitee. pees 718 031634 G T3 021004 G WAIBIC 016522 G $PATCH 036872 G 


000 001 (RW,I,LCL,REL,CON) 
Errors detected: 0 


*** Assembler statistics 


Work file reads: 258 

Work file writes: 272 

Size of work file: 35960 Words ( 141 Beno 
Size of core pool: 19714 Words ( 75 P agen. 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


apsed time: 00:0 


| 
| 
. ABS. 036446 000 8 6(RW,I,GBL,ABS,OVR) 
000 
ev O0.BIN, CVDiW8D. bat: SP=SVC4O/ML, CVOHBD.P11 


a= eee ow -- 


